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ABSTRACT 


This thesis describes the database design and implementation for DecisionNet — a 
distributed decision support technology server for the World Wide Web. The main premise 
of DecisionNet is that decision support technologies can be utilized by consumers as services 
over the World Wide Web instead of being purchased as stand-alone products. In this sense, 
DecisionNet performs the role of an “agent,” facilitating transactions between consumers and 
providers. 

All of DecisionNet’s functions involve some form of data lookup and modification, 
as well as common fields of data for similar classes of entities. As such, a database approach 
seems appropriate for DecisionNet. With this approach, the interaction of database queries 
with scripting languages can facilitate remote execution of decision support software. 

The DecisionNet prototype developed as a result of this research involves the use of 
a relational database that is directly accessed via Common Gateway Interface (CGI) scripts. 
These CGI scripts are invoked by users with a simple web browser. This thesis contains a 
description of “agent” models for transactions, the relational database design, a description 
of edl CGI scripts, and development of a user interface for the system. 
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I. INTRODUCTION 


This thesis describes the database design and implementation for DecisionNet — a 
distributed decision support technology server for the World Wide Web. DecisionNet uses 
the Hypertext Transfer Protocol (HTTP) and the Common Gateway Interface (CGI) to act 
as a broker between “providers” (owners of decision support technologies) and “consumers” 
(users of decision support technologies). These decision support technologies may include 
data sets, model schemas and instances, solvers, modeling environments, and decision 
support environments (Bhargavaet al., 1995). 

A. THE DecisionNet CONCEPT 

The main premise of DecisionNet is that consumers should be able to utilize decision 
support technologies as services over the World Wide Web (WWW), instead of purchasing 
them as stand-alone products. By providing decision support technologies over the WWW 
(either for free or for a nominal usage fee), users would be able to tap into the power of such 
technologies without the normally prohibitive costs involved with purchasing or 
downloading and installing a specific product. The DecisionNet prototype serves as an 
interface between consumers and providers of decision support software, so that interactions 
with multiple technologies may take place at one convenient location. In this sense, 
DecisionNet performs the role of an agent, facilitating transactions between consumers and 
providers of decision support technologies. 

As an agent, DecisionNet should perform several functions that are common among 
specific classes of entities. For instance, a consumer will register into DecisionNet, entering 
such information as his name, e-mail address, and a password. A provider will register into 
the system in the same manner. DecisionNet must allow for the storage of such information, 
as well as provide a means for authentication of valid users. Additionally, providers will also 
want to register their products for use by consumers, so DecisionNet should be able to 
perform such functions as classification, indexing, and execution of these technologies. 
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All of these functions involve a change of state in certain entities. For example, a 
technology being executed would become an active technology, identified not only by the 
technology’s name or provider, but also by the particular instance of a consumer using the 
technology at a given time. During registration, a consumer (without access to DecisionNet) 
would become a registered consumer (with a unique password and access to DecisionNet’s 
consumer-related functions). 

B. TYPES OF DATA REQUIRED 

In order to accomplish the functionality desired in a system such as DecisionNet, 
certain data must be acquired and maintained about the entities involved. For instance, 
consumers’ and providers’ names and e-mail addresses must be known in case the system 
administrator would need to contact them. For technologies, a Uniform Resource Locator 
(URL) address is necessary for access. For an “active” entity (i.e., actively involved in some 
process within the system), it is important to know the time the entity became active, as well 
as the latest time of any further activity. 

Any data that is required will generally be similar in nature for similar entities. All 
consumers and providers have names, and all of them should have passwords to enforce 
system security. All technologies should have a URL address, as well as some descriptive 
information to help consumers in deciding whether a particular technology is right for them. 
If this information could be grouped together into one location, users could have access to 
a powerful repository of decision support technologies at a fraction of the cost of purchasing 
individual technologies. 

C. A DATABASE APPROACH FOR DecisionNet 

All of the functions previously mentioned involve some form of data lookup and 
manipulation (addition, modification, and deletion), as well as common fields of data for 
similar classes of entities (consumers, providers, and technologies). As such, it makes sense 
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to store this information in a database, with access to this information made through the use 
of a database management system (DBMS). Assuming that the actual decision support 
technologies will reside and execute on the providers’ own machines, the processing of data 
in DecisionNet can be reduced to a series of relatively simple operations (such as SQL 
queries) on database tables. DecisionNet is specifically designed to be a World Wide Web 
application; this linkage between a DBMS and the WWW is a relatively unexplored aspect 
of Web applications. 

The current prototype of DecisionNet, developed as a result of this research, is the 
second major prototype for this distributed decision support system. The original 
DecisionNet system (Bhargava et al., June 1995; King, 1995) used an HTML-based search 
engine with scripts written in Perl to accomplish its functionality. The new prototype uses 
a relational database design, with related data for each entity stored in the form of database 
tables and data manipulation conducted dynamically through a powerful database engine. 
This thesis focuses on the DecisionNet database design and database queries, their ability to 
perform all necessary functions for the system, and the interaction of these queries with 
scripting languages to facilitate remote execution of decision support software over the 
World Wide Web. 

D. INDEPENDENT AND EXCLUSIVE TECHNOLOGIES 

It is important to make a distinction between independent and exclusive technologies 
as defined for DecisionNet. Independent technologies are those for which providers must 
craft the WWW interface and execution; these technologies can therefore also run 
independently of DecisionNet. Additionally, providers must program overhead functions 
such as user registration and accounting, authentication, and billing. Exclusive technologies 
are those for which DecisionNet agents provide the WWW interface, execution control, and 
all overhead functions; these technologies must therefore be run exclusively through the 
DecisionNet system. (Bhargava, 1996) 
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This thesis (and the resulting prototype system) focuses on the independent 
technology aspects of DecisionNet. The database design and user interface for DecisionNet 
includes several features that are intended for future expansion once the system is able to 
accept exclusive technologies. Such features are denoted if they are not currently available. 
Furthermore, the author assumes that DecisionNet will remain an entirely “free” service for 
the near future. Financial accounting information is not included in the database design for 
users, but it is mentioned as a topic for further research. 

E. OUTLINE FOR REMAINDER OF THESIS 

Chapter n describes the various entities involved in the DecisionNet system, then it 
delineates the various functions required of a system such as DecisionNet. The chapter 
continues by discussing DecisionNet as an “agent” process, where the state of an entity (e.g., 
a consumer) is modified by an agent receiving a particular message. Chapter HI contains the 
database design for the system, including a description of all database tables, the data model, 
and referential integrity constraints. Chapter IV describes the CGI scripts that are used to 
perform DecisionNet’s functions. Chapter V discusses the development of a user interface, 
and provides the reader with a “tour” of the prototype system. Finally, Chapter VI provides 
a summary of this thesis research and describes some of the further research opportunities 
for DecisionNet. 
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n. DecisionNet AGENTS AND THEIR MODELS 


This chapter describes the DecisionNet system in terms of a series of agent models. 
These models form the foundation for the DecisionNet database design, with the “agents” 
actually representing processes that act to modify the database based on specific messages 
passed between users and the system. 

A. DESCRIPTION OF DecisionNet ENTITIES 

Before beginning a discussion of the agent models, a brief description of each 
DecisionNet entity is appropriate. These entities are the objects about which the DecisionNet 
system must maintain data. 

• Consumer: a person who is registered for the primary purpose of using 
DecisionNet technologies. 

• Provider: a person (or organization) who is registered for the primary purpose 
of providing technologies for consumers’ use. 

• Technology; a registered decision support technology that is able to operate over 
the WWW through the DecisionNet interface. 

• System Administrator: a member of the DecisionNet development team who 
is responsible for system maintenance and monitoring. 

• Active Consumer: a consumer who is actively logged into DecisionNet. 

• Active Provider: a provider who is actively logged into DecisionNet. 

• Used Technology: a technology (independent or exclusive) that has been used 
by a consumer. 

• Active Exclusive Technology: an exclusive technology that is currently being 
used through DecisionNet. 
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• Active Graph Node: a node of an active exclusive technology, indicating the 
particular point at which a consumer is working with the technology. 

• Technology Graph: a listing of an exclusive technology’s nodes for data entry 
and execution; describes the order in which a consumer must input data for the 
technology to function properly. 


B. MAJOR FUNCTIONS FOR DecisionNet 

As mentioned earlier, DecisionNet performs several functions that are common 
among specific classes of entities. These functions, explained below, can be divided into 
four groups. Consumer-related functions are those functions that are specifically geared 
toward the users of decision support technologies. Provider-related functions are those 
functions that are specifically geared toward the owners of decision support technologies. 
System administrator functions are t 5 ^ical database administrator functions that are not 
available to the other users. The final group is a “general” category, where the functions 
apply to all types of users (consumers, providers, and system administrators). 

1. Consumer Functions 

• List Technologies: provide a listing of all registered technologies, with links 
available for consumers to execute the technologies. 

• Execute Technologies: provide a means to directly execute a technology using 
the DecisionNet interface. 

• Technology Search and Retrieval: allow consumers to search for technologies 
using specified criteria. 

• Consumer Account Information: provide a means for consumers to review 
financial accounting data related to their use of DecisionNet. 
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Provider Functions 


• Register Technologies: provide an interface to enter information about 
technologies into the DecisionNet database. 

• Modify Technology Information: allow providers to review and modify data 
about their registered technologies. 

• Withdraw Technologies: allow providers to remove technologies from the 
DecisionNet database if desired. 

• Browse Taxonomy: allow providers to view the taxonomy used in indexing 
technologies. 

• Provider Account Information: provide a means for providers to review 
financial accounting data related to their own use of DecisionNet as well as data 
related to the consumers who are using their technologies. 


3. System Administrator Functions 

• View Database Tables: provide a means to remotely view all tables in the 
DecisionNet database. 

• Run SQL Commands: provide a means to remotely execute Structured Query 
Language (SQL) commands on the DecisionNet database. 

• Remove Users Who Forget to Logout: allow system administrators to remove 
registered consumers and providers from an active status. This functionality 
should also be provided automatically on a periodic basis (i.e., “timeout” 
capability). 

4. General Functions 

• Registration: allow users to remotely register as consumers or providers. For 
security reasons, system administrators should only be allowed to register locally. 

• Login, Authentication, and Logout: provide a means for users to login to 
DecisionNet, and authenticate a user’s identity through a password verification 
process. Allow users to remove themselves from an active, status. 
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• Review and Modify Registration Information: provide a means for users to 
review and modify their registration data. 

• Withdraw Account: allow users to remove themselves from the DecisionNet 
database. For security reasons, system administrators should only be removed 
locally. 


C. FUNCTIONALITY AS AN AGENT PROCESS 

All of the functions described above can be represented in the form of agent models 
that depict an agent’s behavior in performing specific operations. Agent functionality is 
modeled by examining the transactions that take place between agents and other players in 
the market. Agent behavior during transactions is described by specifying their state space, 
the messages acceptable in each state, the messages initiated by the agents in particular 
states, and possible state transitions. (Bhargava et al., 1995) 

The discussion of agent models is limited to the overriding scope of this thesis; 
therefore, models are not developed for exclusive technologies or financial functions. The 
models will use abbreviated names for the entities described above (and for specific instances 
of each entity). In this case, the term “entity” is used to describe a database table that stores 
information on several instances with the same properties. Table 1 summarizes these 
abbreviations. Furthermore, the symbol V is used to indicate the words “for all,” and the 
symbols e and C indicate membership or non-membership of an instance within an entity set, 
respectively. 

A message is depicted in the form “(task, reference, data),” where the task is the 
function to be performed, the reference is the particular element of a set on which to perform 
the task, and the data is any information that is required to perform the task (Bhargava and 
Muller, 1995). The reference should be information from a previous related interaction. In 
the cases where a reference or data is not required, the null set symbol ((|)) is used instead. 
Messages are generally functions of an existing state. For example, a user could not possible 
send a message to modify his consumer account if he is not already registered as a consumer. 


8 



Once a message is received and deemed acceptable by an agent, the agent affects some 
change in state for one or more entities. For DecisionNet, a change in state generally means 
a change to one or more tables in the database. 


Entity Set 

Abbreviation 

Specific Instance of Entity 

All Potential Users 

U 

u 

Consumer 

c 

c 

Provider 

p 

p 

Technology 

T 

t 

System Administrator 

S 

s 

Active Consumer 

AC 

ac 

Active Provider 

AP 

ap 

Used Technology 

UT 

ut 


Table 1. Agent Model Entity Abbreviations. 


1. Models for Consumer Functions 

a. List Technologies 

In order to provide a listing of technologies with links for execution, an agent 
should first verify that a consumer is logged in as a valid user. If the user is valid, the listing 
may follow. In this case, the mle would be: “For all active consumers in the Active 
Consumer table, ‘list all technologies’ is an acceptable message.” Using the letter M to 
represent the set of all acceptable messages, the shorthand form of this rule would be: 

V ac 6 AC, (listtech, ac, (j)) e M. No significant change of state would take place. 

b. Execute Independent Technologies 

The message for executing technologies would be similar to the one for listing 
technologies in that a consumer must be verified as a valid active consumer. However, a 
particular technology must be specified by the user before it may be executed. Therefore, 

V (ac e AC and t € T), (exectech, [ac, t], ([)) 6 M. The change of state that occurs as a result 
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of this message would be to designate the consumer-technology combination as a Used 
Technology. In shorthand form, the change of state would look like: “Put ac and t in UT,” 
or UT;=UT U{(ac,t)}. 

c. Technology Search and Retrieval 

To allow consumers to search for technologies using specified criteria, a 
message would still be valid only if the user is an active consumer. The message must also 
pass the user’s specified criteria to the system so that a listing of applicable technologies may 
be produced. Li this case, V ac e AC, (search, ac, criteria) e M, where “criteria” represents 
all of the user’s choices. This search would obviously be performed on all technologies in 
the Technology entity set, but again no significant change of state would occur. 

2. Models for Provider Functions 

a. Register Technologies 

For a provider to enter information about technologies, he should first be an 
active provider. Once that is verified, he may then enter all pertinent data on a new 
technology. For example, if the provider has two technologies already registered, he may 
only enter data on his new (third) technology. In this case, V (ap e AP and t e T), (regtech, 
[ap, t +1], tech'data) e M, where “t +1" represents the provider’s newest technology and 
“tech-data” corresponds to all of the required data for technology registration. Based on this 
message, a new technology would be registered, or T := T U {(t + 1)}. 

b. Modify Technology Information 

Modifying a technology’s information is similar to registering a technology, 
except that the provider would modify an existing entity instance rather than create a new 
one. Also, a provider must have at least one registered technology in order to modify it, and 
he should be required to enter a password prior to modifying a record. In this case,V (ap e 
AP and t e T), (modify-tech, [ap, t], [tech-data, pwd(ap)]) e M, where “t” is the particular 
technology to be modified, “tech-data” is the updated information, and “pwd(ap)” is the 
active provider’s password. Modifying a record would essentially require extraction of data 
about an entity and rewriting of modified data. This can be modeled as the deletion of a 
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record (T := T - {t}) and the insertion of a new record (T := T U {t’}). These two operations 
may be combined to form the state change: T := T - {t} U {t’}, where t’ represents the 
modified technology registration data. 

c. Withdraw Technologies 

For a provider to remove a technology from the DecisionNet database, the 
same requirements exist as for modifying technologies. Therefore, V (ap e AP and t € T), 
(withdraw-tech, [ap, t], pwd(ap)) e M, where “t” is the specific record to remove and 
“pwd(ap)” is the active provider’s password. This message would simply cause the record 
“t” to be removed from any Technology-related tables. The state change for this case would 
be: T:=T-{t}. 

d. Browse Taxonomy 

Browsing the taxonomy for a provider is virtually identical to listing 
technologies for a consumer. In order to view the taxonomy, the user must be a valid active 
provider. An acceptable message could be: V ap e AP, (browse-tax, ap, (j)). No significant 
change of state would take place. 

3. Models for General Functions 

a. Registration 

For registration, it is important to ensure that users are only registered once. 
Therefore, V u C C, (register, (j), u) e M for a user who wants to register as a consumer, or 
V u ^ P, (register, <|), u) 6 M for a user trying to register as a provider. The state change 
would be either C := C U {u} or P := P U {u}, again depending upon the type of user. 

b. Login, Authentication, and Logout 

An agent to allow users to login to DecisionNet must authenticate a user’s 
identity through a password. In this case, V u e C, Gogin, <[), [u, pwd(u)]) e M, where [u, 
pwd(u)] is the user’s login code and password. Similarly for a provider login, V u e P, 
Gogin, (j), [u, pwd(u)]) € M. The state change involved would be to make the user an active 
user: AC := AC U {u} for a consumer or AP := AP U {u} for a provider. Logging out would 
simply remove the user from an active status. For a consumer, V ac 6 AC, (logout, ac, (j),) 
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6 M. Similarly for a provider, V ap 6 AP, (logout, ap, (j),) e M. The state change that 
occurs at logout is either AC := AC - {ac} or AP := AP - {ap}. 

c. Review and Modify Registration Information 

Modifying a user’s account information is similar to modifying a technology. 
The only requirement is that the user must be a valid active consumer or provider, which in 
turn implies that the user is also a registered consumer or provider. The user should also be 
required to enter a password prior to modifying a record. For consumers, V ac e AC, 
(modify, ac, [newdata, pwd(ac)]) e M, where “newdata” is the updated information, and 
“pwd(ac)” is the active consumer’s password. Similarly for providers, V ap e AP, (modify, 
ap, [newdata, pwd(ap)]) e M. Modifying a record would again require extraction of data 
about an entity and rewriting of modified data, so the state change would be C := C - (c) U 
{c’} for a consumer or P := P - {p} U {p’} for a provider. 

d. Withdraw Account 

If a user chooses to remove his account with DecisionNet, the agent should 
simply remove him as both a registered user and as an active user. This will prevent future 
unauthorized access to the system. In this case, V ac e AC, (withdraw, (|), ac) e M for 
consumers or V ap e AP, (withdraw, (J), ac) 6 M for providers. The state change would 
simply be the removal of the user from the appropriate tables. For consumers, the state 
changes would be C := C - {c} and AC := AC - {ac}. For providers, the state changes would 
be P ;= P - {p} and AP := AP - {ap}. 

4. Summary of Agent Models 

Table 2 contains a summary of the acceptable messages and changes in state 
associated with each of the models developed for consumer and provider functions. These 
agent models, when used in conjunction with the database design described in Chapter IE, 
form the basis for developing all of the DecisionNet scripts to implement the system’s 
functionality. Generally, each individual script is designed to determine the acceptability of 
a user’s message, then it carries out a specific agent behavior based on that message and the 
current state of the database. 
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User Type / 
Function 

Conditions 

Acceptable Messages 
(Task, Reference, Data) 

State Change(s) 

CONSUMER: 

List Technologies 

ac e AC 

(listtech, ac, (j)) 

none 

Execute 

Technology 

ac £ AC, 
teT 

(exectech, [ac, t], (j)) 

UT := UT U {(ac, t)} 

Search and 

Retrieval 

ac e AC 

(search, ac, criteria) 

none 

PROVroER: 

Register 

Technologies 

ap € AP, 
teT 

(regtech, [ap, t + 1], tech-data) 

T:=TU{(t+l)} 

Modify 

Technology 

ap € AP, 
teT 

(modify-tech, [ap, t], [tech-data, pwd(ap)]) 

T:=T- {t}U{t’} 

Withdraw 

Technology 

ap € AP, 
teT 

(withdraw-tech, [ap, t], pwd(ap)) 

T:=T-{t} 

Browse Taxonomy 

ap 6 AP 

(browse-tax, ap, (j)) 

none 

GENERAL: 

Registration 

u C C 

(register,(|), u) 

C:=CU{u} 


u € P 

(register,4>, u) 

P:=PU{u} 

Login 

U G C 

(login, <|), [u, pwd(u)]) 

AC:=ACU{u} 


u e P 

(login, <{>, [u, pwd(u)]) 

AP:=APU{u} 

Logout 

ac G AC 

(logout, ac, <])) 

AC:=AC- (ac) 


ap e AP 

(logout, ap, 4)) 

1 

II 

Modify 

ac 6 AC 

(modify, ac, [newdata, pwd(ac)]) 

C:=C-{c}U{c’} 


ap G AP 

(modify, ap, [newdata, pwd(ap)]) 

P:=P-{p}U{p’} 

Withdraw 

ac G AC 

(withdraw, (|), ac) 

C:=C-{c}, 

AC:=AC-{ac} 


ap e AP 

(withdraw, (j), ap) 

P:=P-{p}, 

AP:=AP- {ap} 


Table 2. Summary of Agent Models. 
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III. DATABASE DESIGN 


This chapter describes the data model, the database schema, and referential integrity 
constraints on the DecisionNet database. It concludes with a description of each category 
of data used in the database. 

A. DATA MODEL 

The Entity-Relationship (ER) Diagram for DecisionNet is depicted in Figure 1. All 
of the entities on this diagram correspond to the entities described in Chapter H. The primary 
entities for this database design are the consumer, provider, and technology - a consumer 
uses a particular technology that is owned by a provider. A consumer or provider may also 
be an active consumer or active provider while he or she is using the system. Once a 
consumer uses a technology, the entities will combine to create a used technology. A 
technology will have exactly one corresponding technology graph, and zero to many 
instances of an active exclusive technology, which is used by an active consumer. An active 
exclusive technology will have exactly one active graph node at any time, showing the 
technology’s progress as it is executed. The system administrator is also shown in Figure 
1. Although the system administrator has no direct relationship with any of the other entities 
on the ER diagram, this person has the ability to manipulate information about any of the 
other entities. 

B. DATABASE TABLES 

The DecisionNet database design was initially designed using Salsa for Windows 
(1994). Appendix A contains the Semantic Object Diagrams generated by Salsa. Appendix 
B contains the data dictionary. 
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Figure 1. DecisionNet Entity-Relationship Diagram. 


The database tables are a logical extension of the Entity-Relationship Diagram from 
Figure 1. For each entity set in the database, there is a unique table which is assigned the 
name of the corresponding entity set (Korth and Silberschatz, 1991). In addition to the ten 
tables formed from the ER diagram, five additional tables provide additional functionality 
for DecisionNet. The following sections describe the resulting tables, all of which are 
depicted in Appendix A. 

1. Tables Derived From ER Diagram 

a. Consumer and Provider Tables 

The Consumer table has a unique identifying field named ConsumerlD. This 
is a 15-character identifier, similar to most computer system login names. Additionally, this 
table contains the consumer’s chosen password, last name, first name, and e-mail address. 
The Provider table is similar to the consumer table, but it only uses one field for the 
provider’s name (individual or business name), and it also includes a field for the Uniform 
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Resource Locator (URL) address of the provider’s home page. The key of the Provider table 
is ProviderlD. 

b. Technology Table 

The Technology table uses a composite key that includes the ProviderlD of 
the provider who owns a given technology and an additional identifier that gives the “serial 
number” of the technology. This serial number, named TechE) in the table, is assigned 
based on the number of technologies a provider has registered. There is an additional field 
for a descriptive (but not necessarily unique) name for the technology. The six classification 
fields (tObjectType, tProblemArea, tFunctionalArea, tSolutionMethod, tIndType, and 
tOrgType) are all used to implement the chosen taxonomy for indexing and retrieval (Rogers, 
1996). Additionally, there is a field for the URL address of the executable technology, and 
a field to show whether a technology is exclusive or independent. 

c. Active Consumer and Active Provider Tables 

These two tables simply contain the respective ConsumerlD or ProviderlD 
field, a session starting time, and a last action time. The time fields are obtained by receiving 
a “time stamp” of the current date and time from the server machine’s internal clock. This 
information is used to monitor a user’s session with DecisionNet. In the future, these tables 
may be used to charge customers on an hourly usage basis. 

d. Used Technology Table 

This table uses a composite key of the ConsumerlD of the consumer using a 
technology, the ProviderlD and TechID of the technology used, and a starting time of usage. 
There is also a field showing the time the consumer stopped using a particular technology. 
This information may be used to provide feedback to providers about the consumers who are 
using their technologies, as well as to provide billing information. 

e. System Administrator Table 

This table contains only two fields: a login identifier (SysadminID) and a 
unique password. The System Administrator table is only used for login and authentication 
before a user is granted access as an administrator. 
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/. Exclusive Technology Tables 

The Active Exclusive Technology table joins an active consumer with a 
particular exclusive technology. Similar to the Used Technology table, it also contains fields 
for activation time and the time of last action. 

The Technology Graph table lists all of the nodes for an exclusive technology 
along with each node’s respective parent. These nodes help to describe the order in which 
data must be entered so that a technology will consider the data valid. 

The Active Graph Node table keeps track of the particular node for an active 
exclusive technology at any given point in time. Additionally, this table includes a field for 
the node’s status for data entry {not ready, ready, or entered). The node data field contains 
the actual data to be passed from the consumer to the technology. 

Again, this thesis focuses on the implementation of DecisionNet for 
independent technologies. The three exclusive technology tables described above are 
included in this database design for future expansion only. 

2. Tables Not Derived from ER Diagram 

a. Technology Information Table 

The Technology Information table is directly linked to the Technology table, 
and it contains memo fields (i.e., longer than normal text fields) to describe a technology’s 
purpose and any instmctions to the user. This table also contains fields to show the date and 
time a technology was registered into DecisionNet, as well as a field showing the date and 
time of the last changes made to a technology’s registration data. Although the use of this 
table provides for some duplicate data (specifically the ProviderlD and TechID of each 
technology), having this infrequently-used information stored on a separate table will provide 
for more efficient system operation. 

b. Consumer, Provider, and Technology Mirror Tables 

These tables are identical in design to the Consumer, Provider, and 
Technology tables, respectively. Each of these “mirror” tables provide a historical listing of 
information on an entity, even if the entity withdraws from DecisionNet. For example, the 
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Consumer table only shows those consumers who are currently registered with DecisionNet. 
The Consumer Mirror table shows all of the registered consumers, plus those who have 
withdrawn from the system. 

c. Taxonomy Table 

The Taxonomy table depicts all of the categories developed by Patricia Rogers 
(1996) for categorizing DecisionNet technologies in a parent-child format. During system 
development, it became obvious that this tzixonomy would be continually evolving as new 
categories are added. By maintaining the taxonomy on a single table, changes to the 
taxonomy are more easily implemented and modification anomalies can be avoided. Any 
script that involves technology registration, modification, or search and retrieval is designed 
to refer directly to this Taxonomy table. As a result, users are required to use only those 
categories included in the taxonomy. 

C. REFERENTIAL INTEGRITY 

A number of referential integrity constraints are designed into the DecisionNet 
database. The referential integrity mle states that the database must not contain any 
unmatched foreign key values (Date, 1990). For instance, an active consumer must first be 
registered as a consumer. Since the Active Consumer table contains the foreign key 
ConsumerlD, there must be a matching value of ConsumerlD in the Consumer table. These 
constraints also help to prevent an unwanted deletion (sometimes known as a “cascading 
delete”). For example, since a technology first requires the presence of a registered provider, 
a provider should not be removed from the system until all of his registered technologies are 
first removed. Table 3 shows a summary of the referential integrity constraints for the 
database, where the key of the “Parent” table resides as a foreign key in each of the 
“Children” tables. 
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Parent 

Children 

Consumer 

Active Consumer, 


Used Technology 

Provider 

Active Provider, 


Technology 

Technology 

Technology Information, 

Used Technology, 

Active Exclusive Technology 

Active Consumer 

Active Exclusive Technology 

Active Exclusive Technology 

Active Graph Node 


Table 3. Referential Integrity Constraints. 


D. CATEGORIES OF DATA 

All of the data for DecisionNet may be categorized as either general use data, session 
data, or archival data. General use data includes those items that are necessary for the 
routine operation of DecisionNet, such as login identifiers and passwords. Session data is 
the information that is required to determine an entity’s state at any given point in time. 
Examples of session data include all of the time stamp fields for active consumers and active 
providers. Archival data includes data that is used to record historical information about 
each entity. Examples include names, e-mail addresses, and nodes. The data dictionary, 
shown in Appendix B, includes a column to indicate each data field’s category. 
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IV. CGI SCRIPTS TO PERFORM DecisionNet FUNCTIONS 


This chapter describes the Common Gateway Interface (CGI) scripts necessary to 
facilitate user interaction with the DecisionNet database through the World Wide Web. 
These scripts are simply platform-specific executable programs that conform to the platform- 
independent mles of CGI for data exchange. After a brief introduction to the hardware and 
software chosen for the current version of DecisionNet, this chapter explains the highlights 
of each script. A complete listing of all of the scripts (written in Object Pascal) is included 
in Appendix C. 

A. PLATFORMS AND PROGRAMMING LANGUAGE 

The current implementation of DecisionNet is installed on two machines. The static 
HTML files (including a basic “shell” in HTML frame format, a “Welcome” page, a “Start 
DecisionNet” page, an “About DecisionNet” page, a “Contact Information” page. Consumer 
and Provider Registration pages, and a “Help” file) are all placed on a Sun SparcStation 10 
server. This machine serves as the “gateway” to the DecisionNet system. The Paradox for 
Windows (1994) database and all executable programs are placed on a Pentium-based 
machine. The programs (and the resulting processor burden) could have been placed on 
several machines; however, the use of one machine for all programs greatly simplifies 
implementation and maintenance of the system. 

Delphi for Windows (1995) was chosen as the programming language for all 
DecisionNet CGI scripts. Delphi provides excellent interaction with several database types, 
and the addition of CGI and CGI Database components (L 5 mnworth, 1995) allows for a 
seamless interface between users and the system via the WWW. 
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B. DESCRIPTION OF CGI SCRIPTS 


The CGI scripts are divided into groups, based on the type of user they serve: general 
user (i.e., not registered or logged in), consumer, provider, or system administrator. These 
four groups also represent the basic directory stmcture for DecisionNet on the server — all 
general user scripts are located in the “C:\website\cgi-win\dnet\” directory, the consumer 
scripts are in “C:\website\cgi-win\dnet\consumer\”, and so on. Some of the scripts apply to 
more than one type of user; if this is the case, the script is only described once. 

All of the scripts, since they all are designed to operate via CGI, have the same 
standard structures. Each script has an HTML header section, a body, and a footer section. 
The HTML header section contains error-handling instmctions, some of which are specific 
to the type of server software being used, as well as some statements that identify the 
program as being CGI-capable. The header sections will not be discussed in the following 
sections; the reader is invited to review the scripts in Appendix C for the required lines of 
code. In the body, the program receives any required data from the user, then it produces a 
dynamic HTML page to respond to the user’s request. In order to maintain state for a user, 
the applicable identifier field (ConsumerlD, ProviderlD, or SysadminID) is passed between 
scripts using a hidden field. By passing this information in such a manner, any script will 
be able to verify that it is being called by a valid user. Hidden fields are HTML fields 
embedded into a form that pass data to CGI scripts without requiring the user to actually 
enter the data. The footer section includes links to related pages within DecisionNet, as well 
as a statement of authorship. 

1. General User Scripts 

a. Browse DecisionNet Technologies 

The browse script (browse.exe) receives no input data. Once executed, the 
program returns a listing of all registered DecisionNet technologies, with no links provided 
to those technologies, hi order to receive a listing of technologies with links, the user must 
register and login as a consumer. The steps are as follows: 
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• Build a table of technologies using an SQL join of the Technology and Provider 
tables. 

• Send the table to a dynamic HTML page, displaying the technology name, 
provider name, object type, and problem area for each registered technology. 

• Send a footer, including links to register as a consumer or return to the “welcome” 
page. 

b. Null Script 

The null script (null.exe) is used for any option on a menu that is currently not 
available. The present implementation of DecisionNet has three options that are not 
available: the “keyword search” of technologies on the consumer menu, and the “account 
information” options on both the consumer and provider menus. These options are all topics 
for further research in DecisionNet. For these options, the null script does the following: 

• Receive either the ConsumerlD or ProviderlD field from the previous page 
(Consumer or Provider Menu). 

• Send an HTML page that informs the user that his selected option is not available. 

• Re-capture the ConsumerlD or ProviderlD, and send a link to return the user to 
the appropriate menu. 

2. Consumer Scripts 

a. Registration Script 

The registration script (register.exe) receives its input from the static 
consumer registration page, and enters a user into DecisionNet as a registered consumer. The 
password field is verified by requiring the user to type the field twice. The steps are as 
follows: 


• Receive all data fields from the registration page (corresponding to the fields in 
the Consumer table). 
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• Verify that the user’s selected ConsumerDD field does not already exist on the 
Consumer or Consumer Mirror table. If it does, raise an error and send the user 
back to the registration page. 

• Verify that the password was entered correctly. If it was not, raise an error and 
send the user back to the registration page. 

• If password is correct, enter data into the Consumer, Consumer Mirror, and Active 
Consumer tables. 

• Send an HTML page that informs the user that he is registered as a consumer. 

• Capture the ConsumerlD and send a link to the Consumer Menu. 

b. Login Script 

The login script (login.exe) takes its input from the static “Start DecisionNet” 
page. A registered consumer will enter his ConsumerlD and password, and the script will 
allow him into the system if the password is correct. The login script performs the following: 

• Receive the ConsumerlD and password fields from user. 

• Check Consumer table to ensure the password is correct. If it is not, send an error 
message to the user, with a link to the Start page to tiy again. 

• Check Active Consumer table to see if user is currently logged in. If he is, send 
a message stating this fact, and send him to the Consumer Menu. 

• If login is valid, send a “Welcome to DecisionNet” message and provide a link to 
the Consumer Menu. 

• Add user’s record to the Active Consumer table. 


c. Consumer Menu 

The consumer menu (menu.exe) is the central point of activity for a consumer. 
This menu allows the consumer to browse, search, and execute all registered technologies, 
as well as modify his own registration data. The consumer menu script does the following: 
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• Receive the ConsumerlD field from its calling module. The calling module may 
be any of the other consumer-related scripts. 

• Update the Active Consumer table, replacing the LastActionTime field with the 
current time stamp. 

• List Technologies: Allow the consumer to list all registered DecisionNet 
technologies, sorted by technology name, provider name, object type, or problem 
area. 

• Access Technologies: Allow the consumer to directly access a technology by 
ProviderlD and TechID, via the “About” script. The ProviderlD and TechE) are 
chosen from drop-down lists that are dynamically generated from the Technology 
table. 

• Indexed Search: Provide the ability to search for technologies that match the 
consumer’s choices for each of the six major categories in the taxonomy (object 
type, problem area, functional area, solution method, industry type, organization 
type). 

• Keyword Search: Allow the consumer to search for a technology using 
keywords (not available). 

• Modify Information: Provide the ability to modify a consumer’s registration 
information in the database. 

• Account Information: Provide the ability for a consumer to review his financial 
account with DecisionNet (not available). 

• Withdraw: Allow a consumer to permanently withdraw his account with 
DecisionNet. 

• Logout: End an active consumer session. 

d. List Technologies 

The list technologies script (listtech.exe) is similar to the browse script 
described in the previous section. The only difference is that the List Technologies script 
provides links for the consumer to execute technologies if desired. This program performs 
the following: 

• Receive the ConsumerlD field and the consumer’s choice of the field for sorting 
the result table. 
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• Update the Active Consumer table. 

• Build a table of technologies using an SQL join of the Technology and Provider 
tables. 

• Send the table to a dynamic HTML page, displaying the technology name, 
provider name, object type, and problem area for each registered technology. The 
technology name is linked to the “About” script, which is the next step in 
technology execution. 

• Send a footer, including a link to the Consumer Menu. 

e. About Technologies Script 

This script (about.exe) is the first step in technology execution. When called, 
this program provides the consumer with information about his chosen technology. The 
majority of the information provided is from the Technology Information table, including the 
“purpose” and “comments” memo fields, the date and time a technology was registered with 
DecisionNet, and the date and time a technology was last updated. Once the consumer has 
verified that the technology chosen is the correct one, a link is provided to launch the 
technology. The about technologies script performs the following: 

• Receive ConsumerlD from the calling module, as well as the ProviderlD and 
TechID of the desired technology 

• Update the Active Consumer table. 

• Build a table of information for the technology, using an SQL join of the 
Technology, Technology Information, and Provider tables. 

• Send the table on a dynamic HTML page to the consumer. 

• Send a footer, with a link to the Execute Independent Technology script (for 
independent technologies) or the “Null” script (for exclusive technologies, since 
this option is not available). 

• Send a link for the user to cancel and return to the Consumer Menu if desired. 
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/. Execute Independent Technologies 

Once a consumer has reviewed the information provided in the about 
technologies script and he has decided to execute an independent technology, the link 
provided will call this module (execind.exe) to record the event. It is important to note that 
if a consumer leaves the DecisionNet shell then tries to return by reloading a DecisionNet 
page, his state information will be lost. This situation could easily occur when a consumer 
executes an independent technology, and he would be forced to log back in to the system to 
resume access to any consumer-related functions. To help avoid this problem, the execute 
independent technologies script opens the technology’s page in a new browser window, 
leaving the DecisionNet shell untouched. The consumer is instmcted to close the new 
window when he is finished with the independent technology, then his DecisionNet session 
may continue as normal. This script proceeds as follows: 

• Receive ConsumerlD, ProviderlD, and TechlD as hidden fields from the about 
technologies script. 

• Update the Active Consumer table. 

• Add the consumer and technology combination to the Used Technology table. 

• Send the consumer to the independent technology in a new browser window. 

g. Indexed Search 

This script (indexed.exe) receives the consumer’s choices of the six major 
indexing categories from the DecisionNet taxonomy and finds any technologies that match 
the choices. This is not a “tme” indexed search in that it does not find any technologies that 
are close to (but not exactly) the user’s choice; this script only returns exact matches. The 
user has the option to choose “AIX” for any category, which implies that he has no limiting 
criteria for that category. Additionally, certain technologies may be registered as “ ATI. ” for 
a particular category. For example, a technology that is categorized as “ALL” in the 
tOrgType field implies that the technology is valid for all organization types. The multi¬ 
dimensional queries involved with these “ALL” categories can become so complex that the 
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database engine will return a “capability not supported” error. To alleviate this problem, an 
approach was taken to perform two smaller queries and combine their results together. The 
final result is a table of the technologies- that match the consumer’s request (including 
technologies categorized as “ALL”), with a link for each pointing to the About Technologies 
script. The table will only display those fields for which a consumer did not select “ALL.” 
The Indexed Search script performs the following: 

• Receive ConsumerlD and the six criteria from the Consumer Menu. 

• Update the Active Consumer table. 

• Perform a query on the Technology table to select any technologies that exactly 
match the user’s request. 

• Perform a query on the Technology table to select any technologies that are 
categorized as “ALL” for any of the user’s requested categories. 

• Append the result of the second query onto the result from the first query. 

• Display the final result as a table, with links for technologies pointing to the 
About Technologies script. 

• Display a link for the user to cancel and return to the Consumer Menu. 

h. Modify Consumer Information 

These scripts (modify.exe, modifya.exe) work in conjunction to modify a 
user’s information on the Consumer table. The modify.exe program displays an HTML form 
to collect the user’s inputs, and the modifya.exe program takes these inputs and modifies the 
appropriate tables. The steps involved include: 

• Receive ConsumerlD from the Consumer Menu. 

• Update the Active Consumer table. 

• Display an HTML page with a form for the user’s information, displaying current 
values (except the password). 

• Send all updated data to modifya.exe. 
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• If the password entered is invalid, display an error message and send the user back 
to the Consumer Menu. 

• If the password is correct, modify the Consumer and Consumer Mirror tables with 
the new information. 

• Send a link for the user to return to the Consumer Menu. 

i. Withdraw from DecisionNet 

The withdraw script (withdraw.exe) permanently removes a consumer from 
the Consumer table, but leaves him in the Consumer Mirror table for historical purposes. 
The consumer is advised that he must choose a new ConsumerlD if he registers again in the 
future. The steps performed by this script are: 

• Receive ConsumerlD from the consumer menu. 

• Remove consumer’s record from the Consumer and Active Consumer tables. 

• Send a d 5 mamic page with contact information for comments to DecisionNet’s 
creators. 


j. Logout Script 

The logout script (logout.exe) removes a user from the Active Consumer table 
and ends an active consumer session. The steps performed by this script are: 

• Receive ConsumerlD from the consumer menu. 

• Remove consumer’s record from the Active Consumer table. 

• Send a dynamic page with contact information for comments to DecisionNet’s 
creators. 
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3. Provider Scripts 

a. Provider Scripts that Parallel Consumer Scripts 

All of the consumer-related scripts described above, with the exception of the 
consumer menu and indexed search scripts, have nearly identical counterparts with the same 
file names in the Provider area of DecisionNet. The only difference in these scripts is that 
they each pass ProviderlD as a hidden field instead of ConsumerDD and any link to the 
Consumer Menu would instead point to the Provider Menu. The code for all of the provider 
scripts is still included in Appendix C; however, these scripts will not be described further 
here. The remaining scripts in this section are those that are specifically designed for 
providers. 

b. Provider Menu 

Similar to the consumer menu, the provider menu (menu.exe) is the central 
point of activity for a registered provider. This menu provides the provider with technology- 
related options (register, update, withdraw, and technology information), account-related 
options (modify, withdraw, account information, and logout), and two additional options (list 
technologies and browse taxonomy). The provider menu script does the following: 

• Receive the ProviderlD field from its calling module. The calling module may be 
any of the other provider-related scripts. 

• Update the Active Provider table, replacing the LastActionTime field with the 
current time stamp. 

• Register Technology: Provide the ability to register new technologies. 

• Update Technology: Allow providers to modify registration data on their 
technologies. 

• Technology Information: Allow providers to view information on the 
consumers who are using their technologies. 

• Withdraw Technology: Allow providers to remove their technologies from 
DecisionNet. 
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Modify Information: Provide the ability to modify a provider’s registration 
information in the database. 


• Account Information: Provide the ability for a provider to review his financial 
account with DecisionNet (not available). 

• Withdraw: Allow a provider to permanently withdraw his account with 
DecisionNet. 

• Logout: End an active provider session. 

• List Technologies: Allow the provider to list all registered DecisionNet 
technologies, sorted by technology name, provider name, object type, or problem 
area. 

• Browse Taxonomy: Allow the provider to view the DecisionNet taxonomy table. 

c. Register Technology 

The register technology scripts (regtech.exe, regteca.exe) work together to 
allow a provider to register a new technology into DecisionNet. The regtech.exe program 
displays an input form to collect registration data. The regteca.exe program accepts the data 
from regtech.exe, and adds it to the necessary tables in the database. These scripts proceed 
as follows: 

• Receive ProviderlD from the provider menu. 

• Update the Active Provider table. 

• Open the Technology Mirror table to find the last TechID number registered for 
the provider. If no technologies are registered, assign the number “1". 

• Display the HTML form for technology registration data input, displaying the 
correct ProviderlD and TechID fields. 

• Display drop-down lists for the six major taxonomy categories, generated 
dynamically from the Taxonomy table. 

• Link the form to regteca.exe and send the data to this script. 
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Update the Active Provider table again. 


• Append the new record to the Technology, Technology Mirror, and Technology 
Information tables. 

• If the technology is exclusive, send the user to the Register Exclusive Technology 
script (not available) for further data input. 

• If the technology is independent, return a message stating that the technology is 
registered and send the user back to the provider menu. 

d. Update Technology 

These scripts (updttech.exe, updtteca.exe, updttecb.exe) enable the provider 
to modify information pertaining to a registered technology. The updttech.exe script displays 
a small form that prompts the provider for his password and his choice of technology to 
update. Only that provider’s registered technologies are displayed. The updtteca.exe script 
displays a form (similar to the technology registration form) showing all of a technology’s 
current data. The provider is instructed to make any desired changes on this form. The 
updttecb.exe script receives this new data and modifies the appropriate tables. These 
programs perform the following: 

• Receive the ProviderlD from the provider menu. 

• Update the Active Provider table. 

• Prompt the user to enter his password and select a technology to modify. 

• If the password is incorrect, notify the user and send him back to the provider 
menu. 

• If the password is correct, call updtteca.exe to display the modification form. 

• When the provider changes any of the fields, send the new data to updttecb.exe. 

• Update the Active Provider, Technology, Technology Mirror, and Technology 
Information tables. 
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• If the technology is exclusive, send the user to the Update Exclusive Technology 
script (not available) for further data input. 

• If the technology is independent, return a message stating that the technology has 
been updated and send the user back to the provider menu. 

• Provide the ability at all stages to cancel without making changes. 

e. Technology Information 

This script (techinfo.exe) allows the provider to view information on the users 
who are using his technologies. The program performs the following functions: 

• Receive the ProviderlD from the provider menu. 

• Update the Active Provider table. 

• Perform a query on the Used Technology table, selecting those records that show 
technologies owned by the provider. 

• Display the result in a table. 

• Return the user to the provider menu 

f. Withdraw Technology 

These scripts (wdtech.exe, wdtecha.exe) work to permanently remove a 
technology from DecisionNet. The wdtech.exe program displays a small form that prompts 
the provider for his password and his choice of technology to withdraw. Only that provider’s 
registered technologies are displayed. The wdtecha.exe program removes the technology 
from the Technology table, leaving the record in the Technology Mirror table for historical 
purposes. The scripts proceed as follows: 

• Receive the ProviderlD from the provider menu. 

• Update the Active Provider table. 

• Prompt the user to enter his password and select a technology to withdraw. 
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• If the password is incorrect, notify the user and send him back to the provider 
menu. 

• If the password is correct, call wdtecha.exe to remove the technology. 

• Remove the technology from the Technology Table. 

• Return the user to the provider menu. 

g. Browse Taxonomy 

This script (browstax.exe) allows the provider to view the Taxonomy table, 
sorted by parent for easier viewing. The Browse Taxonomy program does the following: 

• Receive the ProviderlD from the provider menu. 

• Update the Active Provider table. 

• Display the Taxonomy table using a query, ordering the table by the Parent field. 

• Return the user to the provider menu. 

4. System Administrator Scripts 

a. Login Script 

The system administrator login (login.exe) is similar to the consumer and 
provider login procedure, except the login form is on a separate static HTML page. Once the 
user is logged in, a link is provided that points to the system administrator menu. 

b. System Administrator Menu 

The system administrator menu (menu.exe) is the launching point for the 
remaining scripts. This menu allows the user to change his system administrator password, 
view any table in the DecisionNet database, run a valid SQL statement on any table, and 
manually execute the DecisionNet “timeout” script. 
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c. Change Password 

This script (modify.exe) is similar to the scripts used to modify consumer or 
provider information. The difference is that the system administrator table has only one field 
available to modify -- the password. The form for modifying the password is located on the 
system administrator menu, and it requires the user to type his old password once and his 
new password twice for verification. The script proceeds as follows: 

• Receive old and new password fields from the system administrator menu. 

• If any of the passwords are invalid, display an error message and send the user 
back to the menu. 

• If the passwords are correct, display a message stating that the password has been 
cheinged. 

• Return the user to the system administrator menu. 

d. View DecisionNet Tables 

This script (viewtabl.exe) enables the user to view any of the tables in the 
DecisionNet database. The tables are listed on a drop-down list on the menu. The program 
performs the following: 

• Receive the SysadminlD and the user’s choice of table from the system 
administrator menu. 

• Display the selected table on a dynamic HTML page. 

• Display the drop-down list again to give the user the option of selecting another 
table. 

• Provide a link to return to the system administrator menu. 

e. Run SQL Statement 

This script (runsql.exe) allows the user to type an SQL statement and execute 
it on any table in the DecisionNet database. A text box is provided on the menu. The script 
proceeds as follows: 
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• Receive the SysadminK) and the user’s SQL command from the system 
administrator menu. 

• For “SELECT” statements, display the resulting table on a dynamic HTML page. 

• For any other statement that does not return a result set, display a message stating 
that the command has been executed. 

• If the command is invalid, allow the database engine to display an error message. 

• Display the text box again to allow the user to enter another SQL statement. 

• Provide a link to return to the system administrator menu. 

f. Timeout Script 

This script (timeout.exe) is a CGI version of the automated “timeout” program 
that purges records from the Active Consumer and Active Provider tables for users who have 
remained inactive for a long period of time. The majority of users who fall into this category 
are those who leave DecisionNet and forget to logout. The automated script (a non-CGI 
Delphi program) is scheduled to run hourly on the DecisionNet server. The “manual” 
version performs the following functions: 

• Receive the SysadminID from the system administrator menu. 

• Remove any records from the Active Consumer and Active Provider tables where 
the LastActionTime field is greater than six hours old. 

• Display a message to the user showing the number of records deleted from each 
table. 

• Return the user to the system administrator menu. 
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V. DEVELOPMENT OF A USER INTERFACE 


This chapter describes the DecisionNet user interface. To use the system, all a 
consumer needs is access to the World Wide Web and a frames-capable browser. Even if 
the consumer does not have a frames-capable browser, he may still use DecisionNet, but he 
will not be able to access the DecisionNet shell for commonly-used functions. The 
discussion of the user interface begins by describing the state transition diagram for the 
system. The chapter concludes with a guided tour of DecisionNet for a typical consumer 
session. Appendices D and E contain printouts of the pertinent user interface screens for 
provider and system administrator sessions, respectively. 

A. STATE TRANSITION DIAGRAM 

The state transition diagram for each type of DecisionNet user ~ consumer, provider, 
and system administrator — is depicted in Figure 2. This diagram shows the flow of the user 
interface between the various static HTML pages and the dynamic pages generated by CGI 
scripts. Static HTML pages are denoted in Figure 2 by an asterisk. 



Figure 2. DecisionNet State Transition Diagram. 
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B. A TOUR OF DecisionNet 

The typical consumer enters the DecisionNet system through the shell, which is 
shown in Figure 3. The DecisionNet shell is a frames-based interface that allows the user 
access the top-level (not user specific) functions and informational pages for the system. The 
right-hand frame within this shell contains the DecisionNet “welcome” page. The shell also 
contains links to the other DecisionNet prototypes being developed at Camegie-Mellon 
University and Humboldt University in Berlin, Germany. 


Netscape - [Welcome to DecisionNet] 



Figure 3. DecisionNet Shell. 


The About DecisionNet page, depicted in Figure 4, describes some of the background 
information and research surrounding DecisionNet. This page also defines the major entities 
in the system — consumer, provider, and technology. Links are provided to several other 
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relevant sites on the World Wide Web. Since this page is fairly long, Figure 4 only shows 
the top portion. The reader is invited to visit DecisionNet on-line to examine these pages 
more thoroughly. 



Figure 4. About DecisionNet Page (Top Portion). 


The contact information page (not shown) includes pertinent addresses and telephone 
numbers, including an e-mail address for comments or suggestions. The help page (also not 
shown) lists several useful tips for the new user. 

The Start DecisionNet page, shown in Figure 5, contains the forms for registered 
consumers and providers to login and begin new sessions. This page also provides links for 
new users to register as consumers or providers. The “Browse” option allows an 
unregistered user to view a listing of DecisionNet technologies without being able to execute 
them. 
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Figure 5. Start DecisionNet Page. 


When the consumer follows the “Register as Consumer” link from the start page, he 
is taken to the static consumer registration page. This page is depicted in Figure 6. The 
fields in this registration page parallel the structures of both the Consumer and Consumer 
Mirror tables, except that the consumer is prompted to type his password twice for 
verification. 

Once the consumer has entered all of the required fields, he presses the “Sign Me Up” 
button. This button calls the consumer registration script, which inputs the user’s data into 
the Consumer, Consumer Mirror, and Active Consumer tables. The script returns a dynamic 
login confirmation page as shown in Figure 7. 

This login confirmation page then directs the user to the consumer menu. The button 
on this confirmation page represents an underlying form that captures the user’s 
ConsumerlD field as a hidden field and sends it as a variable to the consumer menu. 
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' Netscape - [DecisionNet Consumef Registrationl 


/’/^localhost//dnet/consLB^f/register, htm 





Figure 6. Consumer Registration Page. 


■‘ l;^ Netscape •• [DecisionNet Consumer Login] 





Figure 7. Consumer Login Confirmation. 
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The consumer menu, shown in Figure 8, contains all of the options available to the 
registered consumer. Each option on this menu is an individual PETML form that passes the 
ConsumerlD field (along with any other pertinent data) to the option’s respective script. 



Figure 8. Consumer Menu. 


42 
















































































The list technologies script (output not shown) receives the consumer’s choice of a 
sorting key, and returns a table listing all of the registered DecisionNet technologies. The 
listing includes an individual HTML form for each technology that captures the user’s 
ConsumerlD field and sends the user to the “About” script for the technology chosen. 

The access technology script (output not shown) simply takes the user’s input for a 
ProviderlD and TechID and sends the user to the “About” script for that particular 
technology. The options for the ProviderlD fields and the TechID fields are generated so that 
all possible ProviderlD codes and all possible TechID numbers are shown. Therefore, it is 
possible that the user could select an invalid combination of the two fields (e.g., if a provider 
only has one registered technology and the user selects that provider with a TechID of “2"). 
In this case, the script raises an error message informing the user of the invalid combination. 

The indexed search script takes the user’s choices for each of the six major categories 
for indexing DecisionNet technologies, and returns a table of technologies that match the 
user’s choices. Each technology in the output table is linked to a form that directs the user 
to the “About” script. Figure 9 shows a sample output from this script, where the user 
requested a listing of all technologies where: 

• Problem Area is “Asset Selection” 

• Functional Area is “Shopping” 

• Industry Type is “Consumer” 

• Organization Type is “Personal/Individual.” 

This table that is returned to the user (Figure 9) shows that there is only one 
technology that exactly matches his criteria. There are, however, three other technologies 
that may apply to all problem areas, functional areas, industry types, and organization types. 

The “About” script receives the ConsumerlD field, along with the user’s choice of 
ProviderlD and TechID, and returns a page of information about the chosen technology. An 
example of the script’s output is found in Figure 10. Once the user has decided to execute 


43 



Figure 9. Indexed Search Output Page. 


the technology, he selects the link on this output page. The execute independent technology 
script then opens a new browser window and allows the user to run the technology. 

Since the neither the keyword search nor the account information options are 
available, the forms associated with these options point to the “null” script. An example of 
the null script’s output is shown in Figure 11. 

The modify consumer information page (not shown) is very similar to the consumer 
registration page, except that it is generated dynamically from the modification script. Once 
displayed, this page shows all of the current values for the user in the Consumer table (except 
for the password). Once the consumer verifies his changes, a confirmation page is sent and 
the user is directed back to the consumer menu. 
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Figure 10. About Technology Script Output Page. 
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Figure 11. Consumer Logout Script Output Page. 


The consumer withdraw script and the consumer logout script are similar in function, 
and their output pages are also nearly identical. An example of the logout script’s output 
page is depicted in Figure 12. 

Printouts of the static and dynamic pages for providers and system administrators can 
be found in Appendices D and E, respectively. In general, a page is shown in these 
Appendices only if it is significant and it does not closely resemble any of the consumer 
pages depicted in this chapter. 
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VI. CONCLUSIONS 


A. LOOKING BACK 

This thesis has described the development and implementation of a database 
prototype for a distributed decision support technology server for the World Wide Web. By 
providing decision support technologies over a global medium such as the WWW, users are 
able to tap into the power of decision support technologies without the normally prohibitive 
costs involved with purchasing or downloading and installing a specific product. The 
DecisionNet prototype serves as an interface between consumers and providers of decision 
support software, so that interactions with multiple technologies may take place at one 
convenient location. 

All of the required functions for DecisionNet involve some form of data lookup and 
manipulation, as well as common fields of data for similar classes of entities. A database 
approach is a logical solution for organizing and manipulating information for DecisionNet. 
Since the actual decision support technologies are stored reside on the providers’ own 
machines, data processing for DecisionNet consists of a series of relatively simple 
operations on database tables. 

DecisionNet’s functionality as a database system can be described in terms of a series 
of agent models. These models formed the foundation for the DecisionNet database design 
and the underlying scripts. The “agents,” in essence, represent processes (i.e., scripts) that 
act to modify the database based on specific messages passed between users and the system. 

The CGI scripts developed for this thesis are the product of several hundred hours of 
programming and compiling, and as such they represent the majority of the research effort. 
Through the use of rapid application development tools and a few add-on components, 
programming for CGI applications differs very little from normal object-oriented or 
stmctured programming. 

By designing the user interface to be fully accessible through virtually any 
commercial web browser, nearly every World Wide Web user becomes a potential consumer 
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for the DecisionNet system. This fact can be a strong selling point for technology providers, 
who are likely to view DecisionNet as a marketing tool for their products. More importantly 
for consumers, this type of interface further reduces the costs (both in terms of money and 
time) associated with using decision support technologies. 

B. LOOKING AHEAD 

1. Future DecisionNet Research 

The following are some of the topics surrounding DecisionNet that require further 
research: 

a. Exclusive Technologies 

DecisionNet must be expanded to allow for the execution of exclusive 
technologies. Although this thesis did not focus on the registration and indexing of exclusive 
technologies, the appropriate database tables have been implemented to make this transition 
easier. Essentially, research in this area will focus on the automatic generation of a user 
interface for non-standard technologies. 

b. Indexing and Retrieval 

The indexed search script developed in this thesis assumes that the consumer 
is looking for exact matches to his query. However, there may be some technologies that are 
closely related to a consumer’s query without being an exact match. The taxonomy for 
indexing technologies is already in place and functional (Rogers, 1996). A method for 
assigning “scores” based on a consumer’s request would prove to be beneficial. 

c. Distributed Processing 

All of the CGI scripts and database tables for the current DecisionNet 
prototype reside on one machine. A system failure on this machine would be catastrophic. 
Further research is needed to determine a more reliable method of processing. Such methods 
could include the use of mirror sites or distributed processing systems. 
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d. Electronic Commerce 

The current implementation of DecisionNet assumes that all transactions are 
processed at no cost to consumers or providers. Eventually, DecisionNet should operate in 
a manner that will allow the passing of costs on to users. Further research is needed to 
combine pricing schemes (Brownlee, 1996), financial transaction mechanisms (Palumbo, 
1996) and advertising (Bhargava et al., June 1995) into an electronic commerce framework 
for DecisionNet. 

2. Potential DoD Uses for this Technology 

Dan McQuay’s thesis (1995) describes several uses for Distributed Decision Support 
Networks (DDSN) and Modeling and Simulation (M & S) for the Department of Defense, 
including military schools, the acquisition community, and battlefield analysis. A system 
such as DecisionNet could be used as the central broker for decision technologies in support 
of DoD objectives. Although the DecisionNet system is primarily designed for the purpose 
of brokering transactions between consumers and providers of decision support technologies, 
this system could easily be adapted to any sort of database application, including personnel 
records, financial data, and spare parts inventories at Defense Industrial Supply Centers. 

The concept of using the World Wide Web as a communications medium for 
seamless access to a large database system is fairly unexplored. Linking users to a highly 
functional DBMS, either through the WWW or corporate “hitranets,” may be a viable and 
cost-effective alternative to stovepipe systems. 

C. CLOSING REMARKS 

The ultimate goal of the DecisionNet concept is to provide decision makers and 
researchers global access, over the Internet, to a large distributed collection of decision 
technologies (Bhargava et al., June 1995). The system developed through this thesis has 
helped to address this goal. By maintaining pertinent metadata in a database, users are 
provided with rapid, convenient, and powerful access to decision support information. As 
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the Internet continues its staggering growth, users will learn of the benefits of allowing a 
system such as DecisionNet to broker transactions for distributed decision support 
technologies. 
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APPENDIX A. SEMANTIC OBJECT DIAGRAM 
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APPENDIX B. DATA DICTIONARY 


Semantic Object: Active Consumer 
Table Name: ACT_CONS.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ActConsID 

Consumer login 
ID (same as 
ConsumerlD) 

Yes 

Yes 

General 

ACTXTECH 

ACT_NODE 

CONSUMER 

CONSMIRR 

USEDTECH 

SessionStartTime 

Active Session 
Starting Time 

Yes 

Yes 

Session 

ACT_PROV 

LastActionTime 

Active Session 
Last Action 

Time 

No 

Yes 

Session 

ACT_PROV 

ACTXTECH 

USEDTECH 
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Semantic Object: Active Exclusive Technology 
Table Name; ACTXTECH.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderE) 

Provider of a 
technology 

Yes 

Yes 

General 

ACT_NODE 

ACT_PROV 

PROVIDER 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

TechID 

Technology 
serial number 
(by provider) 

Yes 

Yes 

General 

ACT_NODE 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

ActConsE) 

Active 

Consumer using 
technology 
(same as 
ConsumerlD) 

Yes 

Yes 

General 

ACT.CONS 

ACT_NODE 

CONSMIRR 

CONSUMER 

USEDTECH 

ActivationTime 

Date and time 
exclusive 
technology 
became active 

Yes 

Yes 

Session 

ACT_NODE 

LastActionTime 

Date and time of 
last activity for 
technology 

No 

Yes 

Session 

ACT_CONS 

ACT_PROV 

USEDTECH 
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Semantic Object: 

Active Graph Node 

Table Name; 

ACT_NODE.DB 




Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderlD 

Provider of a 
technology 

Yes 

Yes 

General 

ACT_PROV 

ACTXTECH 

PROVK)ER 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

TechID 

Technology 
serial number 
(by provider) 

Yes 

Yes 

General 

ACTXTECH 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

ActConsID 

Active 

Consumer using 
technology 
(same as 
ConsumerK)) 

Yes 

Yes 

General 

ACT_CONS 

ACTXTECH 

CONSMIRR 

CONSUMER 

USEDTECH 

ActivationTime 

Date and time 
exclusive 
technology 
became active 

Yes 

Yes 

Session 

ACTXTECH 

Node 

Current Node 

Yes 

Yes 

Session 

TECHGRAP 

NodeStatus 

Status of Node 
for data entry 
(not ready, 
ready, entered) 

No 

Yes 

Session 

none 

NodeData 

Data for a node 

No 

No 

Session 

none 
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Semantic Object: Active Provider 
Table Name; ACT_PROV.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ActProvK) 

Provider login 

ID (same as 
ProviderlD) 

Yes 

Yes 

General 

ACT.NODE 

ACTXTECH 

PROVIDER 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

SessionStartTime 

Active Session 
Starting Time 

Yes 

Yes 

Session 

ACT_CONS 

LastActionTime 

Active Session 
Last Action 

Time 

No 

Yes 

Session 

ACT_CONS 

ACTXTECH 

USEDTECH 
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Semantic Object: Consumer 
Table Name: CONSUMER.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ConsumerDD 

Consumer login 

ID 

Yes 

Yes 

General 

ACT.CONS 

ACT_NODE 

ACTXTECH 

CONSMERR 

USEDTECH 

cPassword 

Consumer’s 

password 

No 

Yes 

General 

CONSMIRR 

cLastName 

Consumer’s last 

name 

No 

No 

Archival 

CONSMIRR 

cFirstName 

Consumer’s first 

name 

No 

No 

Archival 

CONSMIRR 

cEMailAddress 

Consumer’s e- 
mail address 

No 

Yes 

Archival 

CONSMIRR 
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Semantic Object: Consumer Mirror 

Table Name: CONSMIRR.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ConsumerDD 

Consumer login 

ID 

Yes 

Yes 

General 

ACT_CONS 

ACT_NODE 

ACTXTECH 

CONSUMER 

USEDTECH 

cPassword 

Consumer’s 

password 

No 

Yes 

General 

CONSUMER 

cLastName 

Consumer’s last 

name 

No 

No 

Archival 

CONSUMER 

cFirstName 

Consumer’s first 

name 

No 

No 

Archival 

CONSUMER 

cEMailAddress 

Consumer’s e- 
mail address 

No 

Yes 

Archival 

CONSUMER 
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Semantic Object: Provider 
Table Name: PROVIDER.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderlD 

Provider login ID 

Yes 

Yes 

General 

ACT_NODE 

ACT_PROV 

ACTXTECH 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

pPassword 

Provider’s 

password 

No 

Yes 

General 

PROVMIRR 

pName 

Provider’s name 
(person or 
company) 

No 

Yes 

General 

PROVMIRR 

pURL 

Provider’s home 
page URL 

No 

No 

General 

PROVMIRR 

pEMailAddress 

Provider’s e-mail 
address 

No 

Yes 

Archival 

PROVMIRR 
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Semantic Object: Provider Mirror 
Table Name: PROVMIRR.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderlD 

Provider login ID 

Yes 

Yes 

General 

ACT.NODE 

ACT.PROV 

ACTXTECH 

PROVIDER 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

pPassword 

Provider’s 

password 

No 

Yes 

i 

General 

PROVIDER 

pName 

Provider’s name 
(person or 
company) 

No 

Yes 

General 

PROVIDER 

pURL 

Provider’s home 
page URL 

No 

No 

General 

PROVIDER 

pEMailAddress 

Provider’s e-mail 
address 

No 

Yes 

Archival 

PROVIDER 
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Semantic Object: System Administrator 
Table Name: SYSADMIN.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

SysadminED 

System 
administrator 
login ID 

Yes 

Yes 

General 

none 

sPassword 

System 

administrator’s 

password 

No 

Yes 

General 

none 


Semantic Object: Taxonomy 
Table Name: TAXONOMY.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

Child 

Category for 
indexing of 
technologies 

Yes 

Yes 

Archival 

none 

Parent 

Parent of a given 
child category 

Yes 

Yes 

Archival 

TECHGRAP 
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Semantic Object: 

Technology 

Table Name: 

TECHNOLO.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderK) 

Provider of a 
technology 

Yes 

Yes 

General 

ACT_NODE 

ACT_PROV 

ACTXTECH 

PROVIDER 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHMIRR 

USEDTECH 

TechID 

Technology 
serial number 

Gjy provider) 

Yes 

Yes 

General 

ACT_NODE 

ACTXTECH 

TECHGRAP 

TECHINFO 

TECHMIRR 

USEDTECH 

TechName 

Technology 

name 

No 

Yes 

General 

TECHMIRR 

tObjectType 

Object Type 

No 

Yes 

Archival 

TECHMIRR 

tProblemArea 

Problem Area 

No 

Yes 

Archival 

TECHMIRR 

tFunctionalArea 

Functional Area 

No 

Yes 

Archival 

TECHMIRR 

tSolutionMethod 

Solution Method 

No 

Yes 

Archival 

TECHMIRR 

tIndType 

Industry Type 

No 

Yes 

Archival 

TECHMIRR 

tOrgType 

Organization 

Type 

No 

Yes 

Archival 

TECHMIRR 

tURL 

URL of 

executable 

technology 

No 

Yes 

General 

TECHMIRR 

Excind 

Exclusive or 
Independent 

No 

Yes 

General 

TECHMIRR 
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Semantic Object: Technology Graph 
Table Name: TECHGRAP.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderlD 

Provider of a 
technology 

Yes 

Yes 

General 

ACT_NODE 

ACT_PROV 

ACTXTECH 

PROVIDER 

PROVMIRR 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

TechK) 

Technology 
serial number 
(by provider) 

Yes 

Yes 

General 

ACT.NODE 

ACTXTECH 

TECHINFO 

TECHMIRR 

TECHNOLO 

USEDTECH 

Node 

Node for data 
entry 

Yes 

Yes 

Archival 

1 

ACT_NODE 

Parent 

Parent of a 
given node 

Yes 

Yes 

Archival 

TAXONOMY 
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Semantic Object: Technology Information 
Table Name: TECHINFO.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderDD 

Provider of a 
technology 

Yes 

Yes 

General 

ACT_NODE 

ACT_PROV 

ACTXTECH 

PROVIDER 

PROVMIRR 

TECHGRAP 

TECHMIRR 

TECHNOLO 

USEDTECH 

TechID 

Technology 
serial number 
(by provider) 

Yes 

Yes 

General 

ACT_NODE 

ACTXTECH 

TECHGRAP 

TECHMIRR 

TECHNOLO 

USEDTECH 

Purpose 

Technology’s 
main function 

No 

No 

Archival 

none 

Conunents 

Special 
instructions or 

comments 

No 

No 

Archival 

none 

DateRegistered 

Date Technology 
registered into 
DecisionNet 

No 

Yes 

Archival 

none 

LastUpdate 

Date of last 
update to 
technology 
registration data 

No 

Yes 

Archival 

none 
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Semantic Object: Technology Mirror 
Table Name: TECHMIRR.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderK) 

Provider of a 
technology 

Yes 

Yes 

General 

ACT_NODE 

ACT_PROV 

ACTXTECH 

PROVIDER 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHNOLO 

USEDTECH 

TechDD 

Technology 
serial number 
(by provider) 

Yes 

Yes 

General 

ACT_NODE 

ACTXTECH 

TECHGRAP 

TECHINFO 

TECHNOLO 

USEDTECH 

TechName 

Technology 

name 

No 

Yes 

General 

TECHNOLO 

tObjectType 

Object Type 

No 

Yes 

Archival 

TECHNOLO 

tProblemArea 

Problem Area 

No 

Yes 

Archival 

TECHNOLO 

tFunctionalArea 

Functional Area 

No 

Yes 

Archival 

TECHNOLO 

tSolutionMethod 

Solution Method 

No 

Yes 

Archival 

TECHNOLO 

tIndType 

Industry Type 

No 

Yes 

Archival 

TECHNOLO 

tOrgType 

Organization 

Type 

No 

Yes 

Archival 

TECHNOLO 

tURL 

URL of 

executable 

technology 

No 

Yes 

General 

TECHNOLO 

Excbid 

Exclusive or 
Independent 

No 

Yes 

General 

TECHNOLO 
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Semantic Object: Used Technology 
Table Name: USEDTECH.DB 


Attribute 

Description 

Key 

Field 

Required 

Field 

Category 

Other Tables 
With this 
Attribute 

ProviderlD 

Provider of a 
technology 

Yes 

Yes 

General 

ACT.NODE 

ACT_PROV 

ACTXTECH 

PROVIDER 

PROVMIRR 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

TechID 

Technology 
serial number 
(by provider) 

Yes 

Yes 

General 

ACT_NODE 

ACTXTECH 

TECHGRAP 

TECHINFO 

TECHMIRR 

TECHNOLO 

ConsumerlD 

Consumer \vho 
used a 
technology 

No 

i 

! 

Yes 

Archival 

ACT_CONS 

ACT_NODE 

ACTXTECH 

CONSMIRR 

CONSUMER 

StartTime 

Date and time 
technology 
began to be used 

No 

Yes 

Session 

none 

LastActionTime 

Date and time of 
last activity with 
technology 

No 

Yes 

Session 

ACT_CONS 

ACT_PROV 

ACTXTECH 


I 
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APPENDIX C. CGI SCRIPTS 


A. GENERAL USER SCRIPTS 


1. Browse DecisionNet Technologies 

unit Browse 1; {DNet Browse for unregistered user; created by Steve Earley, 
last update 20 May 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

implementation 

{$R*.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'List of Technologies’); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

send('<center><H 1 >DecisionNet Technologies</h 1 ></center>'); 

send('This is a complete listing of all registered technologies.'); 

sendC The technologies are owned and maintained by their'); 

send('individual providers. DecisionNef's purpose is to '); 

send('facilitate access to these technologies.'); 

sendC If you want to access these programs, you must first'); 

send('<A HREF="http://l 31.120.39.63/dnet/consumer/register.exe">'); 

send('register</A> as a consumer.'); 

send('<p>’); 

send('<center>'); 

with query 1 do 

begin 

close; 

SQL.clear; 

SQL.addCSELECT TECHNOLO."TechName", PROVIDER."pName",' + 
’TECHNOLO."tObjectType", TECHNOLO."tProblemArea"' + 
'FROM TECHNOLO,PROVIDER ’ + 

'WHERE (TECHNOLO.ProviderID = PROVIDER.ProviderlD)'); 


open; 

fieldByName ('TechName' ).displayLabel := Technology Name'; 
fieldByName ('pName' ).displayLabel := 'Provider Name'; 
fieldByName ('tObjectType' ).displayLabel := 'Object Type'; 
fieldByName ('tProblemArea' j.displayLabel := 'Problem Area'; 
end; 

CGIDB1 .drawTable; 
query 1.close; 

send('</center>'); 

send('<p>'); 

send('<CENTER>' + 

'<TABLE BORDER=6 CELLPADDING=6>' + 

'<TR ALIGN="CENTER" VALIGN=MIDDLE>' + 
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'<TD ALIGN=''CENTER" VALIGN=MIDDLE>' + 

'<A HREF= "http://dnet.sm.nps.navy.mil/consumer/register.htm">' + 
'Register as Consumer</A></TD>’); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE> ' + 

'<A HREF="http://dnet.sm.nps.navy.mil/provider/register.htm">' + 
'Register as Provider</A></TD>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE> ' + 

'<A HREF="http://dnet.sm.nps.navy.mil/welcome.htm">' + 

'Return to Welcome Page</A></TD>'); 
send('</TR></TABLE></CENTER>'); 

send('<p>'); 

sendHR; 

send('<p><IxFONT SIZE=-1>'); 
send( This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 

send( '</FONT></Ix/BODY></HTML>'); 

closeStdout; 

closeApp( application); 

end; 

end; 

end. 
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2 . 


Null Script 


unit Null 1; {General User Null Script; Created by Steve Earley. 

Last Update 23 April 1996.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R*.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGDEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 
createStdout; 

bounceToLocation('http://dnet.sm.nps.navy.mil/null.htm'); 
closeApp( application); 
end; 

end; 

end. 
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B. CONSUMER SCRIPTS 


1. Consumer Registration 

unit Registel; {Consumer Registration; created by Steve Earley; 
last update 10 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Table2: TTable; 

DataSourceS: TDataSource; 

Tables: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender; TObject); 
var 

ConsumerlD: string; 
cPassword: string; 
cPassword2 : string; 
cLastName: string; 
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cFirstName: string; 
cEMailAddress : string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application.processMessages; 

(receive input fields from HTML form} 

ConsumerlD := getSmallField( 'ConsumerlD'); 
cPassword := getSmallField( 'cPassword'); 
cPassword2 := getSmallField( 'cPassword2'); 
cLastName := getSmallField( 'cLastName'); 
cFirstName := getSmallField( 'cFirstName'); 
cEMailAddress := getSmallField( 'cEMailAddress'); 

(HTML page header info) 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Consumer Registration'); 

send( 'c/HEADxBODY BGCOLOR="80B7BO">'); 

with Table 1 do (puts cursor on correct record in Consumer table) 
begin 
open; 

SetKey; 

FieldByName('ConsumerID').AsString := ConsumerlD; 

GotoKey; 

end; 

with Table2 do {puts cursor on correct record in Consumer Mirror table) 
begin 
open; 

SetKey; 

FieldByName('ConsumerID').AsString := ConsumerDD; 

GotoKey; 

end; 

if (Tablel.GoToKey = True) or (Table2.GoToKey = Tme) 
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or (ConsumerlD = CGINotFound) then 

{User's ID choice already exists on Consumer or ConsMirror table, 

or no ConsumerlD entered on form} 

begin 

send('<centerxhl>Invalid Consumer K)</hl>'); 

send('<h2>Sorry, but you cannot use the Consumer ID you have '); 

send('chosen. Please try another one.</h2></center>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

send(’<CENTER>' + 

'<TABLE BORDER=6 CELLPADDING=6> ’ + 

'<TR ALIGN="CENTER'’ VALIGN=MIDDLE>' + 

'<TD ALIGN="CENTER" VALIGN=MIDDLE>' + 

'<A HREF="http://dnet.sm.nps.navy.mil/consumer/register.htm">' + 
'Return to Consumer Registration</A></TD>'); 
send('</TR></TABLE></CENTER>'); 

send('<p>'); 

end 

else (valid Consumer ID chosen) 
begin 

if cPassword o cPassword2 then (bad registration) 
begin 

send('<center><h l>Password Mismatch</h 1>'); 

send('<h2>Please verify your password choice, and try'); 

send('again.</h2></center>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

sendC<CENTER>' + 

'<TABLE BORDER=6 CELLPADDING=6> ' + 

'<TR ALIGN="CENTER" VALIGN=MIDDLE> ’ + 

'<TD ALIGN="CENTER" VALIGN=MIDDLE> ’ + 

'<A HREF="http://dnet.sm.nps.navy.mil/consumer/register.htm"> ’ + 
'Return to Consumer Registration</A></TD>'); 
send('<rrR></TABLE></CENTER>'); 
send('<p>'); 
end 
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else {good registration} 
begin 

(input record into Consumer table} 

Tablel.AppendRecord([ConsumerID, cPassword, cLastName, 
cFirstName, cEMailAddress]); 

Table 1. close; 

(input record into Consumer Mirror table} 
Table2.AppendRecord([ConsumerID, cPassword, cLastName, 
cFirstName, cEMailAddress]); 

Table2.close; 

(input record into Active Consumer table} 

Tables.open; 

Tables. AppendRecord([ConsumerID, DateTimeToStr(Now), 
DateTimeToStr(Now)]); 

TableS.close; 

send('<center><hl>Welcome to DecisionNet!</hl>'); 
send('<h2>You are now registered under the' + 

'User Name <!>' + ConsumerlD + '</!>.'); 
send(’ Thank you for using DecisionNet.</h2></center>'); 
send(’<p>'); 
sendHR; 
send('<p>'); 

(capture ConsumerlD, send user to Consumer Menu} 

sendC<CENTER>’); 

send(’<FORM method=post action="'+ 

'http://lS 1.120.S9.6S/cgi-win/dnet/consumer/menu.exe">'); 
send('<input type="hidden" name="ConsumerID" '+ 

’ value=" '+ConsumerE)+' "></td>'); 
send(’<input type=" submit" value="Registered Consumer Menu">'); 
send(’</form>'); 
send(’</CENTER>'); 

send('<p>'); 

end; 

end; 

(HTML page footer info} 
send(’<HR>'); 

send( 'This application was created by Steve Earley for Professor'); 
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send( 'Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 
send( '</BODY></HTML>'); 
closeStdout; 
end; 
end; 
end. 
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2 . 


Consumer Login Script 


unit Login 1; {Consumer Login; created by Steve Earley; updated: 13 May 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

DataSource2: TDataSource; 

Tablel: TTable; 

Table2: TTable; 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD: string; 
cPassword: string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under Web Site} 
webSitelNIFilename ;=paramstr(l); 
application.onException := cgiErrorHandler; 
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application.processMessages; 

{input fields from Login form (start.htm)} 
ConsumerlD := getSmallField( ’ConsumerE)'); 
cPassword := getSmallField( 'cPassword'); 

(standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Consumer Login'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 


with Table 1 do (puts cursor on correct record in Consumer table; 

GotoKey returns True if record is valid) 

begin 

open; 

SetKey; 

FieldByName('ConsumerID').AsString := ConsumerDD; 

GotoKey; 

end; 

if (Tablel.FieldByName('cPassword').AsString <> cPassword) or 
(Tablel .GoToKey = False) then (password does not match ConsumerlD, or 
user not in Consumer table) 


begin 

send('<centerxh 1 >Licorrect Login!</h lx/center>’); 
send('<h2>Please verify that your User Name and Password' + 
'are correct, then try again.</h2>'); 
send('<p>'); 
sendHR; 
send('<p>'); 

send('<CENTER>' + 

'<TABLE BORDER=6 CELLPADDING=6> ' + 

'<TR ALIGN="CENTER" VALIGN=MIDDLE> ' + 

'<TD ALIGN="CENTER" VALIGN=MIDDLE> ' + 

'<A HREF="http://dnet.sm.nps.navy.mil/start.htm">' + 
'DecisionNet Start Page</A></TD>'); 
send('</TR></TABLE></CENTER>'); 
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else {ConsumerlD matches cPassword} 
begin 

with Table2 do {search for user in Active Consumer table; 
GotoKey returns True if already logged in} 

begin 

open; 

SetKey; 

FieldByName('ActConsID').AsString := ConsumerlD; 
GoToKey; 
end; 

if Table2.GoToKey = True then (already logged in} 
begin 

send('<center><hl>Already logged in</hl>'); 
send('<h2>You were previously logged in under the'); 
send('User Name <!>’ + ConsumerDD + '</!>'); 
send(’and did not logout. Your last action was at'); 
send(T able2 .FieldByName(’Last ActionTime’). AsString 
sendC There is no need to login again.'); 
send(’<P>'); 

sendC Thank you for using DecisionNet.</h2x/center>'); 
send('<p>'); 
end 
else 
begin 

(put user in Active Consumer table} 

with Table2 do 

begin 

open; 

AppendRecord( [ConsumerDD, DateTimeToStr(Now), 
DateT imeToS tr(Now)]); 
end; 

send('<center><hl>Welcome to DecisionNet!</hl>'); 
send('<h2>You are logged in under the' + 

'User Name <!>' + ConsumerE) + '</!>.'); 
sendC Thank you for using DecisionNet.</h2></center>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
end; 
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{capture ConsumerlD, send user to Consumer Menu} 

send(’<CENTER>’); 

send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/consumer/menu.exe">'); 
send('<input type="hidden" name="ConsumerID" ’+ 
'value="'+ConsumerE)+'"></td>'); 
send(’<input type="submit" value="Registered Consumer Menu">'); 
send('</form>'); 
sendC</CENTER>’); 
end; 

Table 1.close; 

Table2.close; 

(standard dynamic HTML footer information) 

send('<p>’); 

sendHR; 

send('<p><i><font size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</i></font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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3. 


Consumer Menu 


unit Menu 1; {Active Consumer menu; created by Steve Earley, 

Last updated 20 Jun 96} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

Query 1: TQuery; 

DataSourcel: TDataSource; 

DataSource2: TDataSource; 

DataSourceS: TDataSource; 

Tablel: TTable; 

Query2: TQuery; 

DataSource4: TDataSource; 

QueryS: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD: string; 
begin 
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with CGIEnvDatal do 
begin 

websitelNIFilename :=paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 
createStdout; 
sendPrologue; 

{standard header information} 

send( '<HTML><HEAD>'); 

sendTitle( DecisionNet Consumer Menu'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">’); 

{Get ConsumerlD from start page; if user tries to go directly to 
menu, raise an error} 

ConsumerlD ;= GetSmallField(’ConsumerlD'); 

if ConsumerlD = CGINotFound then 
begin 

send('<center><Hl>Not Logged In</hl>’); 
send('<h2>You are currently not logged in to DecisionNet. ’); 
send('Please <a href=’'http://131.120.39.66/start.htm">login</a>'); 
send('to continue.</h2></center>'); 
end 

else 

begin 

{update Active Consumer table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_CONS '); 
sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 
sql.addCWHERE ActConsDD = + ConsumerlD + 

ExecSQL; 
end; 

send('<center><Hl>DecisionNet Consumer Menu</hl></center>'); 

{List Technologies form} 
send('<H3>List Technologies</H3>'); 
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send('Obtain a listing of all technologies sorted by:'); 
send('<CENTER>'); 

send('<FORM METHOD=POST ACTION='); 

send("'http://131.120.39.63/cgi-win/dnet/consumer/listtech.exe">’); 

send(’<INPUT TYPE=H]DDEN NAME="ConsumerID" VALUE="’+ConsumerID+’">’); 

send('<SELECT NAME="sortkey" TYPE = "text" SIZE=1>'); 

send('<OPTION SELECTED VALUE="TechName">Technology Name'); 

send('<OPTION VALUE="pName">Provider Name'); 

send('<OPTION VALUE="tObjectType">Object Type'); 

send('<OPTION VALUE="tProblemArea">Problem Type'); 

send('</SELECT><P>'); 

send('<INPUT TYPE=SUBM]T VALUE="List Technologies" ALIGN="MIDDLE">'); 
send('</CENTER></FORM>'); 

sendHR; 

{Access Technology form — calls the "about” script to launch technology} 
send('<H3>Access T echnology</H3>'); 

send('If you already know the Provider Name and TechID Number of the'); 
send('technology you wish to use, please choose them.'); 

send('<center>'); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 

send('<FORM METHOD = POST ACTION= '); 

send('"http://l 31.120.39.63/cgi-win/dnet/consumer/about.exe">'); 

send('<INPUT TYPE=HIDDEN NAME="ConsumerID" VALUE='"+ConsumerID+'">'); 

send('<TR>'); 

send('<TD>Provider Name:</TD>'); 

send('<TD><SELECT NAME="ProviderID" TYPE="text" SIZE=1>'); 

with Query2 do (Use a query of Technolo.db andprovider.db to list 
Providers, capture ProviderlD for each option) 

begin 

close; 

SQL.Add('SELECT DISTINCT TECHNOLO.ProviderlD, PROVIDER.pName'); 
SQL.Add('FROM TECHNOLO, PROVIDER'); 

SQL.Add('WHERE TECHNOLO.ProviderID=PROVIDER.ProviderID'); 

SQL.Add('ORDER BY pName’); 

open; 
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first; {puts cursor on first record in answer table} 

while not EOF do 

begin 

send('<OPTION VALUE= ’"+FieldByName('ProviderID').AsString+"'>'); 
send(FieldByName('pName').AsString); 
next; (puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TD></rR>'); 

send('<TR>'); 

send('<TD>TechID Number:</TD>'); 

sendC^TDxSELECT NAME="TechID" TYPE="text" SIZE=1>'); 

with QueryS do (Use a query of Technolo.db to list TechID numbers, 
capture TechID for each option} 

begin 

close; 

SQL.AddCSELECT DISTINCT TechID'); 

SQL.AddCFROM TECHNOLO'); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 

begin 

sendC<OPTION VALUE= "’+FieldByName('TechID').AsString+"’>'); 
send(FieldByName(’T echID’). AsString); 
next; {puts cursor on next record} 
end; 
close; 
end; 

sendC</SELECTx/TDx/rR>’); 

sendC<aTi ALIGN="CENTER" VALIGN="MIDDLE"><TD COLSPAN=2>'); 

send('<INPUT TYPE=SUBMIT VALIJE=’'Access Technology" ALIGN="MIDDLE">'); 

send('</TD></FORM></TABLE>'); 

send('</center>'); 

sendHR; 

{Indexed Search form} 
send('<h3>Indexed Search</h3>’); 

send(DecisionNet technologies are classified along six dimensions.'); 
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send('Define your search criteria by choosing terms from each.'); 
send('<center>'); 

send('<FORM METHOD=POST ACTION='); 

send("'http://l 31.120.39.63/cgi-win/dnet/consumer/indexed.exe">'); 

sendC<INPUT TYPE=HIDDEN NAME="ConsumerID" VALUE="'+ConsumerID+’">'); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 
send('<TR><TD>Object Type:'); 

send('</tdxtd><SELECT NAME="tObjectType" TYPE="text" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Tablel do {Check Taxonomy (master.db) for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent').AsString = 'Object Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+"'>'); 
send(FieldByName('Child').AsString); 
end; 

next; {puts cursor on next record) 
end; 
close; 
end; 

send(’</SELECT><n’D>'); 
send('<TRxTD>Problem Area:'); 

send('<ArD> <td> <SELECT NAME="tProblemArea" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Tablel do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {pttto cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Problem Area' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 
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send(FieldByName('Child').AsString); 

end; 

next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TD>'); 
send('<TR><TD>Functional Area:'); 

send('</td><tdxSELECT NAME="tFunctionalArea'' TYPE="text" SIZE=1>'); 
send(’<OPTION SELECTED VALUE="ALL">ALL’); 

with Tablel do (Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; (puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Functional Area' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 

send(FieldByName('Child’). AsString); 

end; 

next; (puts cursor on next record) 
end; 
close; 
end; 

send('</SELECT></TD>’); 
send('<TR><TD>Solution Method:'); 

send('</TD> <td><SELECT NAME="tSolutionMethod" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Tablel do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Solution Method' then 
begin 
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send('<OPTION VALUE= "'+FieldByName(’Child’).AsString+"’>'); 
send(FieldByName('Child').AsString); 
end; 

next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECT><A'D>’); 

send('<TR><TD>Industry Type:'); 

send('<ArD> <td><SELECT NAME="tIndType" SIZE=1>'); 

send('<OPTION SELECTED VALUE=’'ALL ”>ALL'); 

with Tablel do (Check Taxonomy (master.dh) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent').AsString = 'Industry Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 

send(FieldByName('Child').AsString); 

end; 

next; {puts cursor on next record) 
end; 
close; 
end; 

send('</SELECT></TD>'); 

send('<tr><td>Organization T 5 ^e:'); 
send('</tdxtd><SELECT NAME="tOrgType" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Tablel do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent').AsString = 'Organization Type' then 
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begin 

send('<OPTION VALUE= "'+FieldByNaine('Child').AsString+"'>'); 

send(FieldByName('Child').AsString); 

end; 

next; {puts cursor on next record} 
end; 
close; 



send('<TR ALIGN="CENTER"xTD COLSPAN=2>'); 
sendC<lNPUT TYPE=SUBMIT VALUE="Find Technologies"’+ 

‘ ALIGN="MIDDLE"></TD>'); 
send('<^R>'); 
send(’</TABLE>’); 
send('</FORM>'); 
sendC</CENTER>'); 
sendHR; 

(Keyword Search form) 
send('<H3>Keyword Search'); 

send('<FONT SIZE=-2>(Not yet available)</FONT></H3>’); 
send('Find suitable technologies whose title/description '); 
send('contains your chosen keywords.'); 

send('<CENTER>’); 

send('<FORM METHOD=POST ACTION='); 

send('"http://131.120.39.63/cgi-win/dnet/consumer/null.exe">'); 

send('<INPUT TYPE=EnDDEN NAME="ConsumerID" VALUE='"+ConsumerID+'">'); 

send('<INPUT TYPE=TEXT NAME="keyword" SIZE=30 MAXLENGTH=30 ’); 

send('ALIGN="MIDDLE"><P>’); 

send('<INPUT TYPE=SUBMrr VALUE="Subinit Search" ALIGN="MIDDLE">'); 

send('</FORM>’); 

send('</CENTER>'); 

sendHR; 

(other links available to consumer} 
send('<CENTER>'); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<FORM METHOD = POST ACTION= '); 

send('"http://l 31.120.39.63/cgi-win/dnet/consumer/modify.exe">'); 

sendC-dNPUT TYPE=HIDDEN NAME="ConsumerID" VALUE='"+Consumer]D+'">'); 
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send('<TD ALIGN=”CENTER" VALIGN=MIDDLE> ’); 

send(’<INPUT TYPE=SUBMrr VALUE="Modify Info"x/TD></FORM>'); 

send('<FORM METHOD = POST ACTION= '); 

send("'http://l 31.120.39.63/cgi-win/dnet/consumer/null.exe">'); 

sendC<INPUT TYPE=HIDDEN NAME="ConsumerID" VALUE="’+ConsumerID+"'>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

sendC<INPUT TYPE=SUBMrr VALUE=" Account Info"x/TD></FORM>'); 

send(’<FORM METHOD = POST ACTION= '); 

send("'http://131.120.39.63/cgi-win/dnet/consumer/withdraw .exe">'); 

send('<INPUT TYPE=HIDDEN NAME="ConsumerID" VALUE=’"+Consumer]D+’">'); 

sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=SIJBMIT VALlJE="Withdraw from DNet"></TD></FORM>'); 

sendC<FORM METHOD = POST ACTION='); 

send(’"http://l 31.120.39.63/cgi-win/dnet/consumer/logout.exe">'); 

sendC<INPUT TYPE=HIDDEN NAME="ConsumerID" VALUE="’+ConsumerID+’">’); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE> ’); 

send(’<INPUT TYPE=SUBMrr VALUE="Logout"></TD></FORM>’); 

sendC<G’R></TABLE></CENTER>'); 

send(’<P>'); 

end; 

sendHR; 

{standard footer information} 

sendC<p><I><FONT SIZE=-1>'); 

send( 'This application was created by Steve Earley '); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</FONT></I></BODY></HTML>'); 

closeStdout; 

closeApp( application); 

end; 

end; 

end. 
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4. List Technologies 

unit Listtec 1; {Consumer Technology Listing; created by Steve Earley. 
Last updated 29 May 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 

sortkey: string; 

ConsumerE): string; 

begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
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application.onException := cgiErrorHandler; 
application .processMessages; 

sortkey := GetSmallField('sortkey'); 

ConsumerlD := GetSmallField('ConsumerlD'); 

{update Active Consumer table} 
with Query2 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_CONS ’); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.addCWHERE ActConsID = + ConsumerlD + 

ExecSQL; 

end; 

createStdout; 

sendPrologue; 

(standard header information) 

send( '<HTML><HEAD>'); 

sendTitle( 'List of Technologies'); 

send( '</HEADxBODY BGCOLOR="80B7BO">'); 

send('<center><H 1 >DecisionNet Technologies</h 1 ></center>'); 

send('These technologies are owned and maintained by their'); 

send('individual providers. DecisionNef's purpose is to'); 

send('facilitate access to these technologies.'); 

send('<p>'); 

send('<center>'); 

{build table of technologies using join of Technology and Provider) 
with query 1 do 
begin 
close; 

SQL.clear; 

SQL.addCSELECT TECHNOLO."TechName", PROVIDER."pName", ’ + 
'TECHNOLO."tObjectType", TECHNOLO."tProblemArea",' + 
'TECHNOLO."tURL", TECHNOLO."TechID", PROVIDER."ProviderlD" ' + 
'FROM TECHNOLO,PROVIDER' + 

'WHERE (TECHNOLO.ProviderlD = PROVIDER.ProviderlD)'); 
SQL.add('ORDER BY ’+sortkey+"); 
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open; 

first; {puts cursor on first record in table} 


send(’<TABLE BORDER=6 CELLPADDING=6>’); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send(’<B>Technology Name</B>'); 

send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<B>Provider Name</B>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send(’<B>Object Type</B>’); 

send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<^>Problem Area</B>'); 

while not EOF do 
begin 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<FORM METHOD = POST ACTION= '); 
send("'http://l 31.120.39.63/cgi-win/dnet/consumer/about.exe">'); 
send('<INPlJT TYPE=fflDDEN NAME="ConsumerID" VALUE=’"+ConsumerID+"'>’); 
send(’<INPUT TYPE=HIDDEN NAME="ProviderID"'); 
send('VALUE="'+ FieldByName('ProviderID').AsString 
send('<INPUT TYPE=HIDDEN NAME="TechID"'); 
send('VALUE="'+ FieldByName(TechK)').AsString 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<INPUT TYPE=SUBMrr VALUE="'+ FieldbyName('TechNcmie').AsString 

+'">■); 

send('</TD></FORM>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('pName’).AsString); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('tObjectType').AsString); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName(’tProblemArea').AsString); 
next; {puts cursor on next record} 
end; 

sendC<n’ABLE>'); 

close; 

end; 

send('</center>'); 

send('<p>'); 

sendHR; 
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send('<p>'); 

{capture UserlD, send user to Consumer Menu} 
send('<CENTER>'); 
send(’<FORM method=post action="'+ 
'http://131.120.39.63/cgi-win/dnet/consumer/menu.exe">'); 

send('<input type="hidden" name="ConsumerK)"'+ 
'value='"+ConsumerK)+'"></td>'); 
send('<input type="submit" value="Registered Consumer Menu">'); 
send('</form>'); 
send('</CENTER>'); 

{standard HTML footer information} 
send('<p>'); 
sendHR; 

send('<pxFONT SIZE=-1><I>'); 
send( 'This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<br>'); 
send( '<P>'); 

send( 'Generated on ' + webdate(now)); 
send( '</I></FONT></BODY></HTML>'); 

closeStdout; 

closeApp( application); 

end; 

end; 

end. 
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5. About Technologies Script 


unit Aboutl; {Consumer "About Technology " script; created by Steve Earley. 
Last updated 18 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Queryl: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

CGIDB 1: TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerDD : string; (Person using the program) 
ProviderlD : string; (Provider of a given technology) 
TechID ; string; (TechID of a given technology) 

begin 
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with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

{standard header information} 
send( '<HTML><HEAD>’); 
sendTitle( 'DecisionNet Technology Details'); 
send( '</HEAD><BODYBGCOLOR="80B7BO">'); 

(Get hidden fields from previous page) 

ConsuinerDD := GetSmallField('ConsumerlD'); 

ProviderlD := GetSmallField('ProviderlD'); 

TechID := GetSmallField('TechlD’); 

(update Active Consumer table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_CONS '); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.addCWHERE ActConsID = + ConsumerE) + 

ExecSQL; 

end; 

(build table of technologies using join of necessary tables} 
with query2 do 
begin 
close; 

SQL.clear; 

SQL.add(’SELECT DISTINCT * ' + 

'FROM TECHNOLO,PROVIDER,TECHINFO ’ + 

'WHERE (TECHNOLO-ProviderlD = PROVIDER.ProviderlD)' + 
'AND (TECHNOLO.TechID = TECHDSfFO.TechlD)' + 

'AND (TECHNOLO.ProviderlD = TECHINFO.ProviderlD)' + 
'AND (TECHNOLO.ProviderlD = ’"+ ProviderlD + '")' + 

'AND (TECHNOLO.TechID = '"+ TechID +'")'); 

open; 
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if RecordCount = 0 then {Consumer selected an invalid combination 

of ProviderlD and TechID from Menu} 

begin 

send('<center><Hl>Cannot Locate Technology</Hl>'); 
send('<H2>The technology with ProviderlD <!>' + ProviderlD + '</!>'); 
sendCand TechID <I>' + TechID + ’</!> does not exist. Please '); 
send('retum to the Consumer Menu, and use the "List Technologies" ’); 
send('option to find the correct technology.</H2></center>'); 
end 

else 

begin 

send('<center><Hl>DecisionNet Technology Details</hl></center>'); 
send(’This technology is owned and maintained by its'); 
send('individual provider. DecisionNef's purpose is to'); 
send('facilitate access to this technology.'); 

if FieldByName('ExcInd'). AsString = 'Independent' then 
begin 

sendC When you execute this technology, it will open into a new '); 
send('browser window. It is important to close that window and'); 
send('retum to this frame then '); 

send('click on the button below to go back to the Consumer Menu.'); 
send('This will allow DecisionNet'); 

send('to keep track of certain information about you. If you '); 
send('do not do this, you may be forced to log back in to access '); 
send('DecisionNet again. Thank you.'); 
end; 

send('<p>'); 

send('<center>’); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VAUGN=MIDDLE>'); 
send('<B>Technology Name:</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('TechName'). AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Provider Name:</B>'); 
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send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('pName').AsString); 

send(’<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(’<B>Provider ID:</B>'); 
sendC<TD ALIGN=’'CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('ProviderID').AsString); 

sendC<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Technology ID:</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('TechID').AsString); 

send(’<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 

sendC<^ ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<B>Registered:</B>'); 

sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send(FieldByName('DateRegistered').AsString); 

sendC<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Updated; </B>'); 

sendC^TD ALIGN="CENTER" VALIGN=MK)DLE>'); 
send(FieldByName('LastUpdate').AsString); 

sendC^TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
sendC<TD ALIGN= "CENTER" VALIGN=MIDDLE>'); 
send('<B>Object Type</B>'); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tObjectType').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MK)DLE>'); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<B>Problem Area</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('tProblemArea').AsString); 

sendC<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Functional Area</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
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send(FieldByName('tFunctional Area'). AsString); 

send('<^R ALIGN="CENTER" VALIGN=MIDDLE>’); 
sendCcTD ALIGN="CENTER’' VALIGN=MIDDLE>’); 
send('<B>Solution Method</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tSolutionMethod').AsString); 

send(’<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<TD ALIGN="CENTER" VALIGN=MK)DLE>'); 
send('<B>Industry Type</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tIndType'). AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<TD ALIGN="CENTER" VALIGN=ME)DLE>'); 

send('<B>Organization Type</B>’); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send(FieldByName('tOrgType').AsString); 

send('</T ABLE>’); 

send('</center>'); 

send('<P>'); 

send('<B>Purpose:</B>'); 

CGIDB1 .SendMemo(FieldByName('Purpose')); 
send('<P>'); 

send('<P>'); 

send('<B>Comments:</B>'); 

CGDDB1 .SendMemo(FieldByName(’Comments')); 

send('<P>'); 

send('<CENTER>'); 

if FieldByName('ExcInd'). AsString = 'Independent' then 
begin 

send('<FORM method=post action='"+ 

'http://131.120.39.63/cgi-win/dnet/consumer/execind.exe"'); 
send('TARGET="execind">'); 
end 
else 
begin 

send('<FORM method=post action='"+ 

'http://131.120.39.63/cgi-win/dnet/consumer/null.exe">'); 
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end; 


send('<input type="hidden" name="ConsumerID’' '+ 

'value='' '+ConsumerID+"'>’); 
send('<input type="hidden" name="ProviderID" '+ 
'value='"+ProvidernD+"'>'); 
send('<input type="hidden" name="TechID"'+ 
'value=’"+TechID+'">'); 

send('<input type="submit" value="Execute Technology 
send('</form>'); 
sendC</CENTER>'); 
end; 

Query2.close; 

end; 

send(’<p>'); 

sendHR; 

send('<p>'); 

{capture ConsumerlD, send user to Consumer Menu} 

sendC<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/consunier/menu.exe">'); 
send('<input type="hidden'' name="ConsumerID" '+ 

'value=" '+ConsumerID+' ">'); 

send('<input type="submit" value="Registered Consumer Menu">'); 

send(’</form>'); 

send(’</CENTER>’); 

send('<p>’); 

sendHR; 

send('<p><FONT SIZE=-1><I>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</Ix/FONT></BODY><m'ML>'); 

closeStdout; 
closeApp( application); 
end; 
end; 
end. 
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6. Execute Independent Technologies 

unit Execind 1; {Consumer Execute Independent Technology script; 

created by Steve Earley. Last update: lljun96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Table2: TTable; 

DataSource2: TDataSource; 

Table 1: TTable; 

DataSourceS: TDataSource; 

Query 1; TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD: string; 

ProviderlD: string; 

TechID: string; 

begin 

with CGIEnvDatal do 
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begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{Receive hidden fields from about, exe} 

ConsumerlD := GetSmallField(’ConsumerlD'); 

ProviderlD ;= GetSmallField('ProviderlD'); 

TechID := GetSmallField('TechlD'); 

(update Active Consumer table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_CONS'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.add('WHERE ActConsID = + ConsumerlD + 

ExecSQL; 

end; 

(Locate appropriate record in Technology table) 

Table 1.open; 

Tablel.FindKey([ProviderID,Techn)]); 

(Add record to Used Technology table) 

Table2.open; 

Table2.AppendRecord([ProviderID,TechID,ConsumerlD ,DateTimeToStr(Now), 
DateTimeToStr(Now)]); 

Table2.close; 

(send user to independent technology) 
createStdout; 

bounceToLocation(Tablel.FieldByName('tURL').AsString); 

Table 1.close; 

close App( application); 

end; 

end; 

end. 
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7. 


Indexed Search 


unit Indexed 1; {Technology Indexed Search; created by Steve Earley. 
Last updated 2 Jul 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2; TDataSource; 

Query2: TQuery; 

DataSourceS: TDataSource; 

QueryS: TQuery; 

BatchMovel: TBatchMove; 

Table 1: TTable; 

DataSource4: TDataSource; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD : string; (consumer using this program} 

CatField : array[0..5] of string; {fields chosen by user} 
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Category ; array [0. .5] of string; {categories available for user to 

choose from} 

CatUsed : boolean; (flag to show if any categories have been used in query) 
i: smallint; {counter to keep track of array elements) 

begin 

with CGDEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 

application.onException := cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{Get fields from Consumer Menu) 

ConsumerK) := GetSmallField('ConsumerlD'); 

CatField[0] ;= GetSmallField('tObjectType'); 

CatField[l] := GetSmallField('tProblemArea’); 

CatField[2] := GetSmallField('tFunctionalArea'); 

CatField[3] := GetSmallField('tSolutionMethod'); 

CatField[4] := GetSmallField(’tlndType’); 

CatField[5] := GetSmallField('tOrgType'); 

{Initialize array and flag) 

Category[0] := 'tObjectXype'; 

Category[l] := 'tProblemArea'; 

Category[2] := 'tFunctionalArea'; 

Category[3] := 'tSolutionMethod'; 

Category[4] := 'tIndType'; 

Category[5] := 'tOrgType'; 

CatUsed := false; 

{standard header information) 

send( ’<HTML><HEAD>'); 

sendTitle( 'DecisionNet Indexed Search'); 

send( ’c/HEADxBODY BGCOLOR="80B7BO">’); 

send(’<center><Hl>DecisionNet Indexed Search</hl></center>’); 

{update Active Consumer table) 
with Query 1 do 
begin 
close; 

SQL.clear; 
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sql.addCUPDATE ACT_CONS ’); 

sql.add(’SET LastActionTime = +DateTimeToStr(Now)+ 
sql.add('WHERE ActConsED = + ConsumerlD + 

ExecSQL; 

end; 

{Build table of technologies using queries on Technolo.db. Query! checks 
for technologies that meet the user's chosen criteria. Query! checks for 
technologies that apply to several categories (labeled as "ALL" in the 
database).} 

Query2.close; 

Query3.close; 

Query2.SQL.clear; 

QueryS.SQL.clear; 

Query2.SQL.add('SELECT * FROM TECHNOLO '); (Chooses all technologies 

by default) 


for i := 0 to 5 do 
begin 

if CatField[i] o 'ALL' then (user has selected a category) 
begin 

if CatUsed = false then {first WHERE clause for SQL queries) 
begin 

Query2.SQL.add('WHERE ('+ Category[i] + ' = '" + CatField[i] +'")'); 
Query3.SQL.add('SELECT * FROM TECHNOLO '); 
Query3.SQL.add('WHERE ('+ Category[i] +' = "ALL")'); 

CatUsed := true; 
end 

else {subsequent clauses for queries) 
begin 

Query2.SQL.add('AND ('+ Category[i] + ' = '" + CatField[i] +'")'); 
Query3.SQL.add('AND ('+ Category[i] + ' = "ALL")'); 
end; 
end; 
end; 

Query2.SQL.add('ORDER BY TechName'); 

Query2.open; 

BatchMove 1 .Execute; {creates tempLdb; copies query! to templ.db) 
Table 1.open; {opens Templ.db) 

Query2.close; 
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if CatUsed = true then {User chose one or more criteria} 
begin 

with Query3 do 
begin 

SQL.add('ORDER BY TechName'); 

open; 

first; 

while not EOF do (Add records from QueryS to templ.db} 

begin 

Table 1. AppendRecord( [QueryS .Fields [0] ,Query3 .Fields [ 1 ] ,Query3 .Fields [2], 
Query3 .Fields [3 ],Query 3 .Fields [4] ,Query3 .Fields[5], 

Query3 .Fields [6] ,Query3 .Fields [7] ,Query3 .Fields [8], 

Query3 .Fields [9] ,Query3 .Fields [10]]); 

next; 

end; 

close; 

end; 

end; 

if Table 1 .RecordCount = 0 then (empty query) 
begin 

send('<center><p><h2>'); 

send('Your query did not return a result. Please try a broader'); 
send('search, with more of the drop-down lists set to "ALL."'); 
send('</h2></center>'); 
end 

else (Query returned a result) 
begin 

(Print disclaimer) 

send('These technologies are owned and maintained by their'); 
send('individual providers. DecisionNef's purpose is to'); 
send('facilitate access to these technologies. The listing below is '); 
send('based on technologies that meet your specific query, along with'); 
send('any technologies that apply to all categories (shown as "ALL").'); 
send('<p>'); 

(Set-up table headings) 
send('<center>'); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 
send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Technology Name</B></TD>'); 
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{Print table headers if categories are queried} 
if CatField[0] o 'ALL' then 

sendC<TD ALIGN="CENTER"xB>Object Type</B></TD>’); 
if CatField[l] o 'ALL' then 

send('<TD ALIGN="CENTER"><B>Problem Area</B></TD>'); 
if CatField[2] o 'ALL' then 

send('<TD ALIGN="CENTER"xB>Functional Area</B></TD>'); 
if CatField[3] o 'ALL' then 

send('<TD ALIGN="CENTER"><B>Solution Method</B></TD>'); 
if CatField[4] o 'ALL' then 

send('<TD ALIGN="CENTER"><B>Industry Type<^></TD>'); 
if CatField[5] o 'ALL then 

send('<TD ALIGN="CENTER"><B>Organization Type</B></TD>'); 

with Table 1 do 
begin 
first; 

while not EOF do {fill in values for dynamic page using contents of 
templ.db) 

begin 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<FORM METHOD = POST ACTION='); 
sendC "http://131.120.39.63/cgi-win/dnet/consumer/about.exe">'); 
send('<INPUT TYPE=HIDDEN NAME="ConsumerID" VALUE='"+ConsumerID+'">'); 
send('<INPUT TYPE=HIDDEN NAME="Providerro"'); 
send('VALUE='"+ FieldByName('ProviderID').AsString +'">'); 
send('<INPUT TYPE=HIDDEN NAME="TechID"'); 
send('VALUE='"+ FieldByName('TechID').AsString +'">'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<INPUT TYPE=SUBMIT'); 

send('VALlJE='"+ FieldbyName('TechName').AsString +'">'); 
send('</TD></FORM>'); 

for i := 0 to 5 do 
begin 

if CatField[i] o 'ALL then 
begin 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
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send(FieldByName(Category [i]). AsString); 
send(’</TD>'); 
end; 
end; 

next; {puts cursor on next record} 
end; (endof file for table) 
close; 

Active := False; (Mark templ.db for deletion, and delete it) 
DatabaseName := 'DNET'; 

TableName := TEMPI'; 

TableType := ttDefault; 

DeleteTable; 
end; (Tablel) 

sendC<T'ABLE>'); 

send('</center>’); 

end; (display of query result table) 
sendHR; 

(capture UserlD, send user to Consumer Menu) 

send('<CENTER>’); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/consumer/menu.exe">'); 
send('<input type="hidden" name="ConsumerID" ’+ 
’value="’+ConsumerID+"'x/td>’); 
send('<input type="submit" value="Registered Consumer Menu">'); 
send('</form>'); 
send(’</CENTER>’); 

(standard HTML footer information) 
sendHR; 

send('<FONT SIZE=-1><I>'); 
send( 'This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 
send( '</Ix/FONT><mODY></HTML>'); 
cioseStdout; 
cIoseApp( application); 
end; 
end; 
end. 
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8. Modify Consumer Information 

unit Modify 1; {Modify Consumer Information; created by Steve Earley, 
last updated 2 Jul 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Tablel: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Form 1: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD: string; 
begin 

with CGIEnvDatal do 
begin 

(required when this program runs under WebSite) 
webSitelNIFilename :=paramstr(l); 
application.onException := cgiErrorHandler; 
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application.processMessages; 

createStdout; 

sendPrologue; 

{HTML page header info} 

send( '<HTML><HEAD>'); 

sendTitle( 'Modify Consumer Information’); 

send( '</HEAD><BODY BGCOLOR=’'80B7BO">’); 

(receive input field from Consumer Menu; if user tries to go directly to 
program, or tries to modify record as a guest, raise an error} 

ConsumerlD := getSmallField( 'ConsumerlD'); 

if (ConsumerlD = CGINotFound) or (ConsumerlD = 'guest') then 
begin 

send('<center><Hl>Unable to Modify Record</hl>’); 
send('<h2>You cannot modify your information unless you have logged'); 
send('in as a valid Consumer other than <I>'+ConsumerID+'</I>.'); 
send('Please <a href="http://131.120.39.66/start.htm">login</a>'); 
send('to continue.</h2></center>'); 
end 

else 

begin 

(update Active Consumer table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_CONS ’); 

sql.add('SET LastActionTime = '" +DateTimeToStr(Now)+ 
sql.addCWHERE ActConsID = + ConsumerlD + 

ExecSQL; 

end; 

with Table 1 do (puts cursor on correct record in Consumer table} 
begin 
open; 

SetKey; 

FieldByName('ConsumerID').AsString := ConsumerlD; 

GotoKey; 

end; 
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{Modification form} 

send('<CENTERxhl>Modify Consumer Information</hl></CENTER>'); 
send('<B>Directions; </B>'); 

send('<OL><LI>Please enter your current password in the "Old Password"'); 
send('field (even if you are not changing your password).’); 

send('<LI>For the remaining fields, fill in any information that'); 
sendCyou want to change, then press the "Modify Record" button. If you'); 
send('do not want to change the information as shown, please do not'); 
send('delete the entries in these fields.'); 

send('<LI>You cannot change your Consumer ID using this page. If you'); 
send('need to change your Consumer ID, please feel free to contact us.'); 

send('<LI>If you change your password,'); 

sendCyou must type in all three password fields (old, new, and new '); 
send('again) for the change to take effect.</OL>'); 

send('<center>'); 

send('<FORM method=post action='); 

send('"http://131.120.39.63/cgi-win/dnet/consumer/modifya.exe">'); 
send('<input type="hidden" name="ConsumerID" value='" +ConsumerID+ '">’); 
sendC^ABLE BORDER=6 CELLPADDING=6>'); 
send('<td>01d Password:</td><td><input type="password"'); 

send('name="cPassword" size=10></td>'); 
send('<TR><TD>New Password:</TD><TDxinput type="password" ’); 

send('name="cPassword2"size=10> </td>'); 
send('<TR><TD>Re-type New Password:</TD><TDxinput type="password"'); 

send('name="cPassword3" size=10> </td>'); 
send('<TR><TD> Last name:</TD> <td> <input type="text" ’); 
send('name="cLastName" size=30 value='); 
send("" +Tablel.FieldByName('cLastName').AsString+ ’"></td>'); 
send('<TR><TD> First name: </TD> <td><input type="text" ’); 
send('name="cFirstName" size=30 value='); 
send("" +Tablel.FieldByName('cFirstName').AsString+ '"></td>'); 
send('<TR><TD> Email Address: </TD> <td><input type="text"'); 
send('name="cEMailAddress" size=50 value=’); 
send("" +Tablel.FieldByName('cEMailAddress').AsString+ '"></td>'); 
send('</TABLE>'); 

send('<P>'); 
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send('<input type="submit" value= "Modify Record">'); 
send('<input type="reset" value="Clear Form">'); 
send('</form></center>’); 

{If user cancels, capture ConsumerlD, send user to Consumer Menu} 
send('<center><FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/consumer/menu.exe">'); 
send('<input type= "hidden" name="ConsumerID" '+ 
'value="’+ConsumerID+"'></td>’); 

send('<input type="submit" value="Cancel, Return to Consumer Menu">'); 
send('</form>'); 
send('</CENTER>’); 
end; 

(HTML page footer info} 
send('<HRxI><FONT SIZE=-1>'); 

send( 'This application was created by Steve Earley for Professor'); 

send( 'Hemant Bhargava.<BR>'); 

send( 'Generated on ' + webdate(now)); 

send( '</l></FONT></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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9. 


Withdraw from DecisionNet 


unit Withdral; {Consumer Withdraw; created by Steve Earley; updated: 7 Jun 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Table 1: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Query 1: TQuery; 

DataSourceS: TDataSource; 

Query2: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD: string; 
begin 

with CGIEnvDatal do 
begin 

{ required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
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appIication.onException := cgiErrorHandler; 
application.processMessages; 

{Get ConsumerlD field from menu.exe} 

ConsumerlD := getSmallField( 'ConsumerlD'); 

(standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'Withdraw as DecisionNet Consumer'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

if ConsumerlD = 'guest' then (disallow changes to guest record} 

begin 

send('<CENTER><hl>Cannot Remove Record</hl>'); 
send('<h2>You do not have permission to modify the <I>guest</I>'); 
send('account. If you would like to enter your own information,'); 
sendCplease go to our <A HREF="http://dnet.sm.nps.navy.mil/start.htm">'); 
send('Start DecisionNet Page</A>.</h2x/CENTER><HR>'); 

(If user cancels, capture ConsumerlD, send user to Consumer Menu} 
send('<center><FORM method=post action='"+ 

'http;//l 31.120.39.63/cgi-win/dnet/consumer/menu.exe">'); 
send('<input type="hidden" name="ConsumerID"'+ 
'value='"+ConsumerID+'"></td>'); 

send('<input type="submit" value="Cancel, Return to Consumer Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 

else (ok to delete record} 
begin 

with Table 1 do (search for user in Active Consumer table; 

GotoKey returns True if already logged in} 

begin 

open; 

SetKey; 

FieldByName('ActConsID').AsString := ConsumerlD; 

GoToKey; 

end; 
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if Tablel.GoToKey = Trae then 
begin 

{Delete user from Active Consumer table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCDELETE FROM ACT.CONS ’); 
sql.add('WHERE ActConsID = + ConsumerlD + 

ExecSQL; 

end; 

end; 

(Delete user from Consumer table) 
with Query2 do 
begin 
close; 

SQL.clear; 

sql.addCDELETE FROM CONSUMER ’); 
sql.add('WHERE ConsumerlD = + ConsumerK) +""); 

ExecSQL; 

end; 

Tablel.close; 

send('<center><hl>Withdraw as DecisionNet Consumer</hl></centei>'); 
sendC<HR><P>You are now removed from the system.'); 
sendC We are sorry to see you go. Please feel free to register'); 
send('with us again in the future.'); 

sendC We hope to have a fully-functional system by the end of June,'); 
send('and we invite your comments for any improvements or additions '); 
sendCyou would like to see.'); 
sendC Thank you for using DecisionNet.'); 

sendC<H3>For DSS or overall system questions, please contact:</H3>'); 
sendC<P><CENTER><AHREF="mailto:bhargava@nps.navy.mil">'); 
sendCProf. Hemant Bhargava: <I>bhargava@nps.navy.mil</I></A></CENTER>'); 

sendC<H3>For technical questions and support, please contact:</H3>'); 
sendC<P><CENTERxAHREF="mailto:shearley@nps.navy.mil">’); 
sendCSteve Earley: <I>shearley@nps.navy.mil</A></CENTER>'); 

end; 


115 


{standard dynamic HTML footer information} 

send('<p>'); 

sendHR; 

send('<p><i><font size=-l>’); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</font></i></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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10. Logout Script 

unit Logoutl; {Consumer Logout; created by Steve Earley; updated: 14 May 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Table 1: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ConsumerlD: string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 


117 



{Get ComumerlD field from menu.exe} 

ConsumerlD := getSmallField( 'ConsumerDD'); 

(standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Consumer Logout'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

with Table 1 do (search for user in Active Consumer table; 

GotoKey returns True if already logged in) 

begin 

open; 

SetKey; 

FieldByName('ActConslD').AsString := ConsumerlD; 

GoToKey; 

end; 

if Tablel.GoToKey = True then 
begin 

(Delete user from Active Consumer table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCDELETE FROM ACT_CONS ’); 
sql.add('WHERE ActConsDD = + ConsumerlD +""); 

ExecSQL; 

end; 

end; 

Table 1.close; 

send('<center><h 1 >DecisionNet Logoutc/h 1 ></center>'); 

send('<HR><P>You are now logged out of the system.'); 

sendC We hope to have a fully-functional system by the end of June,'); 

send('and we invite your comments for any improvements or additions '); 

sendCyou would like to see.'); 

sendC Thank you for using DecisionNet.'); 

send('<H3>For DSS or overall system questions, please contact:</H3>'); 
send('<P><CENTER><A HREF="mailto:bhargava@nps.navy.mil">'); 
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send('Prof. Hemant Bhargava: <I>bhargava@nps.navy.mil</]></A></CENTER>'); 


send('<H3>For technical questions and support, please contact;</H3>’); 
send('<P><CENTER><A HREF="mailto:shearley@nps.navy.mil">'); 
send('Steve Earley: <I>shearley@nps.navy.mil</A>«c/CENTER>’); 

{standard dynamic HTML footer information} 

send('<p>'); 

sendHR; 

send('<p><:i><font size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</Ix/font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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C. PROVIDER SCRIPTS 


1. Provider Registration 

unit Registel; {Provider Registration; created by Steve Earley; 
updated 10 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Table2: TTable; 

DataSourceS: TDataSource; 

Tables: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderK): string; 
pPassword: string; 
pPassword2: string; 
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pName: string; 
pURL: string; 
pEMailAddress: string; 

begin 

with CGIEnvDatal do 
begin 

{ required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{receive input fields from HTML form} 

ProviderlD := getSmallField( ’ProviderlD’); 
pPassword := getSmallField( 'pPassword'); 
pPassword2 := getSniallField( 'pPassword2'); 
pName := getSmallField( 'pName'); 
pURL := getSmallFieldC 'pURL'); 
pEMailAddress := getSmallField( 'pEMailAddress'); 

(HTML page header info) 

createStdout; 

sendPrologue; 

send( '<HTMLxHEAD>'); 

sendTitle( 'DecisionNet Provider Registration'); 

send( 'c/HEADxBODY BGCOLOR="80B7BO">'); 

with Table 1 do {puts cursor on correct record in Provider table) 
begin 
open; 

SetKey; 

FieldByName('ProviderK)').AsString := ProviderlD; 

GotoKey; 

end; 

with Table2 do {puts cursor on correct record in Provider Mirror table) 
begin 
open; 

SetKey; 

FieldByName('ProviderID').AsString := ProviderlD; 

GotoKey; 

end; 
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if (Tablel.GoToKey = True) or (Table2.GoToKey = True) 
or (ProviderK) = CGINotFound) then 

{User's ID choice already exists on Provider or ProvMirror table, 

or no ProviderlD entered on form} 

begin 

send('<center><hl>Invalid Provider K)</hl>'); 

send('<h2>Sorry, but you cannot use the Provider ID you have'); 

send('chosen. Please try another one.</h2></center>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

sendC<CENTER>' + 

’<TABLE BORDER=6 CELLPADDING=6> ’ + 

’<TR ALIGN="CENTER" VALIGN=MIDDLE>' + 

■<TD ALIGN="CENTER" VALIGN=MrDDLE> ' + 

’<A EDREF="http://dnet.sm.nps.navy.mil/provider/register.htm">' + 
'Return to Provider Registration</A></TD>'); 
send('</TR></TABLE></CENTER>'); 
send('<p>'); 
end 

else {valid Provider ID chosen) 
begin 

if pPassword <> pPassword2 then {bad registration) 
begin 

send('<center><h 1 >Password Mismatch</h 1>'); 

send('<h2>Please verify your password choice, and try'); 

send('again .</h2></center>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

sendC<CENTER> ’ + 

'<TABLE BORDER=6 CELLPADDING=6> ’ + 

'<TR ALIGN="CENTER" VALIGN=MIDDLE> ’ + 

'<TD ALIGN="CENTER" VALIGN=MIDDLE> ’ + 
'<AHREF="http://dnet.sm.nps.navy.mil/Provider/register.htm">' + 
'Return to Provider Registration</A></TD>'); 
send('</TR></TABLE></CENTER>'); 
send('<p>'); 
end 
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else {good registration} 
begin 

(input record into Provider table) 

Table l.AppendRecord([ProviderID, pPassword, pName, 
pURL, pEMail Address]); 

Table 1.close; 

(input record into Provider Mirror table) 
Table2.AppendRecord([ProviderID, pPassword, pName, 
pURL, pEMailAddress]); 

Table2.close; 

(input record into Active Provider table) 

Tables .open; 

Tables .AppendRecord([ProviderID, DateTimeToStr(Now), 
DateTimeToS tr(Now)]); 

Tables .close; 

send('<centei><hl>Welcome to DecisionNet!<:/hl>'); 
send('<h2>You are now registered under the' + 

'User Name <!>' + ProviderlD + '</!>.'); 
sendC Thank you for using DecisionNet.</h2></center>'); 
send('<p>'); 
sendHR; 
send('<p>’); 

(capture ProviderlD, send user to Provider Menu) 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://lS 1.120.S9.6S/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
'value=’"+ProviderlD+"'></td>'); 

send('<input type=’'submit" value="Registered Provider Menu">’); 
send('</form>'); 
send('</CENTER>’); 
send('<p>'); 
end; 
end; 

(HTML page footer info) 
send('<HR>'); 

send( 'This application was created by Steve Earley for Professor'); 
send( 'Hemant Bhargava.<br>'); 
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send( 'Generated on ’ + webdate(now)); 
send( ’</BODY></HTML>'); 
closeStdout; 
end; 
end; 
end. 
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2. Provider Login 

unit Login 1; {Provider Login; created by Steve Earley; updated: 20 May 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataS ource 1: TDataS ource; 

DataSource2: TDataSource; 

Table 1: TTable; 

Table2: TTable; 

CGLEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TFormLFormCreate(Sender: TObject); 
var 

ProviderlD: string; 
pPassword: string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename :=paramstr(l); 
application.onException := cgiErrorHandler; 
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application.processMessages; 

{input fields from Login form (start.htm)} 

ProviderK) := getSmallField( 'ProviderlD'); 
pPassword := getSmallField( 'pPassword'); 

{standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Provider Login'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">’); 

with Table 1 do {puts cursor on correct record in Provider table; 

GotoKey returns True if record is valid) 

begin 

open; 

SetKey; 

FieldByName('ProviderE)').AsString := ProviderlD; 

GotoKey; 

end; 

if (Tablel.FieldByNanie('pPassword').AsString o pPassword) or 
(Tablel.GoToKey = False) then {password does not match ProviderlD, or 
user not in Provider table) 


begin 

send('<center><h 1 >hicorrect Login !</h 1 ></center>'); 
send('<h2>Please verify that your User Name and Password' + 
'are correct, then try again.</h2>'); 
send('<p>'); 
sendHR; 
send('<p>'); 

send('<CENTER>' + 

’<TABLE BORDER=6 CELLPADDING=6> ' + 

'<TR ALIGN="CENTER" VALIGN=MIDDLE>' + 

'<TD ALIGN="CENTER" VALIGN=ME)DLE>' + 

'<A HREF="http://dnet.sm.nps.navy.mil/start.htm">' + 
'DecisionNet Start Page</A></TD>'); 
send('</TR></TABLE></CENTER>'); 
end 
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else {ProviderlD matches pPassword} 
begin 

with Table2 do {search for user in Active Provider table; 
GotoKey returns True if already logged in} 

begin 

open; 

SetKey; 

FieldByName('ActProvID').AsString := ProviderlD; 
GoToKey; 
end; 

if Table2.GoToKey = True then (already logged in} 
begin 

send(’<center><hl>Already logged in</hl>’); 
send('<h2>You were previously logged in under the '); 
send('User Name <!>' + ProviderlD + '</I>'); 
send('and did not logout. Your last ziction was at'); 
send(Table2.FieldByName('LastActionTime').AsString 
sendC There is no need to login again.’); 
send('<P>’); 

sendC Thank you for using DecisionNet.</h2></center>'); 
send('<p>’); 
end 
else 
begin 

(put user in Active Provider table} 

with Table2 do 

begin 

open; 

AppendRecord([ProviderID, DateTimeToStr(Now), 
DateTimeToStr(Now)]); 
end; 

send('<center><hl>Welcome to DecisionNet!</hl>'); 
send('<h2>You are logged in under the' + 

'User Name <!>' + ProviderlD + '</!>.'); 
sendC Thank you for using DecisionNet.</h2></center>'); 
send('<p>'); 
end; 

(capture ProviderlD, send user to Provider Menu} 

sendC<CENTER>'); 

send('<FORM method=post action="'+ 
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'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID’''+ 
’value='"+ProviderID+"’></td>'); 

send('<input type="submit" value="Registered Provider Menu’'>'); 
send('</fonn>'); 
send('</CENTER>'); 
end; 

Table 1.close; 

Table2.close; 

{standard dynamic HTML footer information} 

send('<p>’); 

sendHR; 

send('<pxI><FONT SIZE=-1>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</I></FONTx/BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 


128 



3. 


Provider Menu 


unit Menu 1; {Active Provider menu; created by Steve Earley, 
Last updated 20 Jun 96} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

Query 1: TQuery; 

DataSourcel: TDataSource; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderE): string; 
begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

{standard header information} 

send( '<HTMLxHEAD>*); 

sendTitle( 'DecisionNet Provider Menu'); 

send( '</HEAD><BODYBGCOLOR="80B7BO">’); 

{Get ProviderlD from start page; if user tries to go directly to 
menu, raise an error) 

ProviderlD := GetSmallField('ProviderlD'); 

if ProviderlD = CGINotFound then 
begin 

send('<center><Hl>Not Logged In</hl>'); 
send('<h2>You are currently not logged in to DecisionNet.'); 
send('Please <ahref="http://131.120.39.66/start.htm">login</a>'); 
send('to continue.</h2></center>'); 
end 

else 

begin 

{update Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 
sql.addCWHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

send('<center><Hl>DecisionNet Provider Menu</hl></center>'); 
sendHR; 

{Table of Technology-related options for Provider) 
send('<H2>T echnology ;</H2>'); 

send('<CENTER>'); 

sendC<TABLE BORDER=6 CELLPADDING=6>’); 
sendC^R ALIGN="CENTER" VALIGN=MIDDLE>'); 
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send('<FORM METHOD = POST ACTION= ’); 
send("'http://131.120.39.63/cgi-win/dnet/provider/regtech.exe">'); 
sendC<INPUT TYPE=HIDDEN NAME="ProviderID" VALUE="'+ProviderID+"’>’); 
send('<aD ALIGN= "CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=SlJBMrr VALUE="Register Technology"></TD></FORM>'); 

send('<FORM METHOD = POST ACTION= ’); 
send(’"http://l 31.120.39.63/cgi-wiii/dnet/provider/updttech.exe">'); 
send(’<INPUT TYPE=HIDDEN NAME="ProviderID" VALUE="'+ProviderID+"'>'); 
sendC<TD ALIGN="CENTER" VALIGN=ME)DLE>’); 

send('<INPUT TYPE=SUBMIT VALUE="Update Technology"></TDx/FORM>'); 

sendC<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

sendC<FORM METHOD = POST ACTION= ’); 
send(’"http://131.120.39.63/cgi-win/dnet/provider/techinfo.exe">'); 
send('<INPUT TYPE=HIDDEN NAME="ProviderID" VALUE="'+ProviderID+"'>'); 
send('<aD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<INPUT TYPE=SUBMrr VALUE="Technology Information"x/TD></FORM>’); 

send('<FORM METHOD = POST ACnON= ’); 
send("'http://131.120.39.63/cgi-win/dnet/provider/wdtech.exe">'); 
send('<INPUT TYPE=HIDDEN NAME="ProviderID" VALUE="'+ProviderID+"'>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<JNPUT TYPE=SIIBM]T VALUE="Withdraw Technology"></TD></FORM>'); 

send(’</TR></TABLE></CENTER>’); 

send('<P>'); 

sendC<FONT SIZE=-1>’); 
send('<UL>'); 

sendC<Ll><DT><STRONG>RegisterTechnology</STRONG>'); 
send('<DD>Register a new decision support technology with DecisionNet'); 
sendC<LI><DTxSTRONG>UpdateTechnology</STRONG>'); 
send('<DD>Update a decision technology being provided on DecisionNet'); 
send('<LI><DT><STRONG>Technology Information</STRONG>'); 
send('<DD>Get data on the customer usage of provided technologies'); 
send('<LI><DT><STRONG>Withdraw Technology</STRONG>'); 
send('<DD>Withdraw a decision technology from DecisionNet'); 
send('</UL>'); 
send('</FONT>'); 

sendHR; 
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{Table of Provider account-related options for Provider} 
send('<H2>Provider Account: </H2>'); 

send('<CENTER>'); 

send('<TABLE BORDER=6 CELLPADDING=6>’); 
send('<TR ALIGN=’'CENTER" VALIGN=MIDDLE>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.63/cgi-win/dnet/provider/niodify.exe">'); 
send('<INPUT TYPE=H1DDEN NAME="ProviderID" VALUE="’+ProviderID+”’>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=SUBMIT VALUE="Modify Infonnation"x/TD></FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://l 31.120.39.63/cgi-win/dnet/provider/null.exe">'); 
send('<INPUT TYPE=PnDDEN NAME="ProviderID" VALUE=’"+ProviderID+"'>'); 
send('<TD ALIGN=''CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=SUBMrr VALUE="Account Information''></TD></FORM>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<FORM METHOD = POST ACTION= ’); 

sendC "http://131.120.39.63/cgi-win/dnet/provider/withdraw.exe">’); 

send('<INPUT TYPE=H1DDEN NAME="ProviderID" VALUE="’+ProviderID+"'>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=SUBMrr VALUE="Withdraw from DNet"></rD></FORM>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.63/cgi-win/dnet/provider/logout.exe">'); 

send('<INPlJT TYPE=HIDDEN NAME="ProviderID" VALUE=’"+ProviderID+’">'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=SUBMrr VALUE="Logout"></TD></FORM>’); 

send('</rR><ArABLE></CENTER>'); 

send('<P>'); 

sendC<FONT SIZE=-1>'); 
send('<UL>’); 

send('<LI><DT><STRONG>ModifyInformation</STRONG>'); 
send('<DD>Change Provider registration data'); 
send('<LI><DT><STRONG>Account Information</STRONG>'); 
send('<DD>Get information about your account with DecisionNet'); 
send('<LI><DT><STRONG>Withdraw from DNet</STRONG>'); 
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send('<DD>Withdraw a Provider account from DecisionNet'); 

send('<DD><DD>Note: you must withdraw all registered technologies'); 

sendCprior to withdrawing your account'); 

send(’<LI><DT><STRONG>Logout</STRONG>’); 

send('<DD>End your current session'); 

send('</UL>'); 

send('</FONT>'); 

sendHR; 

{Other options for Provider) 
send('<H2>Other Functions :</H2>'); 

(List Technologies form) 
send('<H3>List Technologies</H3>'); 
send('Obtain a listing of all technologies sorted by:'); 
send('<FORM METHOD=POST ACTION='); 
send('"http://l 31.120.39.63/cgi-win/dnet/provider/listtech.exe">'); 
send('<CENTER>'); 

sendC <SELECT NAME="sortkey" TYPE = "text" SIZE=1>'); 
send('<OPTION SELECTED VALUE="TechName">Technology Name'); 
send('<OPTION VALUE="pName">Provider Name'); 
send('<OPTION VALUE="tObjectType">Object Type'); 
send('<OPTION VALUE="tProblemArea">Problem Type'); 
send('</SELECT><PxP>'); 

send('<INPUT TYPE=SUBMIT VALUE="List Technologies" ALIGN="MIDDLE">'); 

send('<INPUT TYPE=HIDDEN NAME="ProviderID" VALUE='"+ProviderID+'">'); 

send('</FORM>'); 

send('</CENTER>'); 

send('<P>'); 

(Browse Taxonomy Form) 
send('<H3>Browse Taxonomy<:/H3>'); 
send('Explore the hierarchies used in our search algorithm.'); 
send('<P><P>'); 

send('<FORM METHOD=POST ACTION='); 

send('"http;//l 31.120.39.63/cgi-win/dnet/provider/browstax.exe">'); 

send('<CENTER>'); 

send('<INPUT TYPE=SUBMIT VALUE="Browse Taxonomy" ALIGN=middle>'); 

send('<INPUT TYPE=HDDDEN NAME="ProviderID" VALUE='"+ProviderID+'">'); 

send('</FORM>'); 

send('</CENTER>'); 

send('<P>'); 
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end; 

sendHR; 

{standard footer information} 
send('<p><I><FONT SIZE=-1>’); 
send( 'This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 

send( '</FONT><A></BODY></HTML>'); 

closeStdout; 

close App( application); 

end; 

end; 

end. 
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4. Register Technology Scripts 

unit Regtechl; {Technology Registration Form; created by Steve Earley; 
updated 10 Jun 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 

Forms, Cgi, DB, DBTables; 

type 

TForml = class(TFonn) 

DataSourcel: TDataSource; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Tablel: TTable; 

DataSourceS: TDataSource; 

Table2; TTable; 

Queryl: TQuery; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderK); string; 

TechID: string; 

TechIDInt: integer; 

begin 

with CGIEnvDatal do 
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begin 

{ required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiEixorHandler; 
application.processMessages; 

{Standard Header Information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Technology Registration Form'); 
send( ’</HEAD><BODY BGCOLOR="80B7BO">'); 

{receive input field from Provider Menu; if user tries to go directly to 
program, or tries to register technology as a guest, raise an error) 

ProviderlD := getSmallField( 'ProviderlD'); 

if (ProviderlD = CGINotFound) or (ProviderlD = 'guest') then 
begin 

send('<center><Hl>Not Logged In</hl>'); 

send('<h2>You cannot register a technology unless you have logged'); 
send('in as a valid Provider other than <I>'+ProviderED+'</I>.'); 
send('Please <a href="http://131.120.39.66/start.htm">login</a>'); 
send('to continue.</h2></center>'); 
end 

else 

begin 

{update Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sqLadd('SET LastActionTime = '" +DateTimeToStr(Now)+ 
sql.addCWHERE ActProvID = '" + Provider!) + 

ExecSQL; 

end; 

with Table 1 do {Open TechMirror Table, determine which TechID number 
to use next) 
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begin 

TechIDInt := 1; 
open; 

{If Provider is in TechMirror table, Increment TechID until last 
registered Technology is found} 
while FindKey([ProviderID,IntToStr(TechIDInt)]) do 
begin 

TechIDInt := TechIDInt + 1; 
end; 

TechID := IntToStr(TechlDInt); 
close; 
end; 

send('<center><hl>Technology Registration Fonn</hl></center>'); 
send('Please fill in all of the following fields, then press the'); 
send("'Register" button. For each category, choose the term that'); 
send('best describes your technology. These terms will later be used '); 
send('in an indexed search of technologies. Your Technology ID number'); 
send('should be up to a three-digit number — the first technology you'); 
sendCregister will be 1, the second will be 2, and so on. It is best ’); 
send('to use the number shown in the form to avoid any key violations'); 
send('in our database. If you have a technology that was registered and'); 
send('subsequently withdrawn from our database, you cannot reuse its'); 
send('Technology ID number.'); 

(Registration Form) 
send('<center>'); 

send('<FORM method=post action='); 

send("'http://l 31.120.39.63/cgi-win/dnet/provider/regteca.exe">'); 
send('<TABLE BORDER=6 CELLPADDING=6>’); 
send('<TR><TD>Provider ID:'); 

send('</TD><td><input type="text" name="ProviderID"'); 
send('size=15 maxlength=15 value='" +ProviderID+ '"x/td>'); 

send('<TR><TD>Technology ID:'); 
send('</TD><td><input type="text" name="TechID"'); 
send('size=3 maxlength=3 value='" +TechID+ '"></td>'); 

send('<TR><TD>Technology Name:'); 

send('</TD> <td><input type="text" name="TechName"'); 
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send('size=20 maxlength=20></td>'); 
send('<TR><TD>Object Type:'); 

send(’</tdxtd><SELECT NAME="tObjectType" TYPE="text" SIZE=1>’); 

with Table2 do {Check Taxonomy (master.db) for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent’).AsString = 'Object Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 
send(FieldByName('Child').AsStiing); 
end; 

next; {puts cursor on next record) 
end; 
close; 
end; 

send('</SELECT><A’D>'); 
send('<TRxTD>Problem Area:'); 

send('<A’D> <td> <SELECT NAME="tProblemArea" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Table2 do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent').AsString = 'Problem Area' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 

send(FieldByName('Child').AsString); 

end; 

next; {puts cursor on next record) 
end; 
close; 


138 



end; 


sendC</SELECT><A'D>'); 
send('<TR><TD>Functional Area:'); 

send('</td><tdxSELECT NAME="tFunctionalArea" TYPE="text" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Table2 do {Check Taxonomy (master.db) for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Functional Area' then 
begin 

send('<OPTION VALIJE= '"+FieldByName('Child').AsString+'">'); 

send(FieldByName('Child').AsString); 

end; 

next; {puts cursor on next record) 
end; 
close; 
end; 

send('</SELECT></rD>'); 
send('<TR><TD>Solution Method:'); 

send('</TD> <tdxSELECT NAME="tSolutionMethod" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Table2 do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Solution Method' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+"'>'); 
send(FieldByName('Child') .AsString); 
end; 
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next; {puts cursor on next record} 
end; 
close; 
end; 

sendC</SELECT><n'D>’); 
send('<TR><TD>Industry Type:'); 

send('<A’D> <tdxSELECT NAME="tIndType" SIZE=1>’); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Table2 do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Industry Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 

send(FieldByN ame('Child'). AsString); 

end; 

next; {puts cursor on next record) 
end; 
close; 
end; 

send('</SELECT></TD>'); 

send('<tr><td>Organization Type:'); 
send('</tdxtd><SELECT NAME="tOrgType" SIZE=1>'); 
send('<OPTION SELECTED VALUE="ALL">ALL'); 

with Table2 do {Check Taxonomy (master.db) for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Organization Type' then 
begin 
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send('<OPTION VALIJE= "'+FieIdByNaine('Child').AsString+"'>'); 

send(FieldByName('Child’).AsString); 

end; 

next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTxn’D>'); 

sendC<TR><TD>URL:'); 

send('</TD><td><input type="text" name="tURL"'); 
send('size=50 maxlength=255x/td>'); 

send('<TRxTD>Technology Type:'); 

send('</TD><td><input type=”radio" checked name="ExcInd"'); 
send('value="Independent"> Independent'); 

send('<input type="radio" name="ExcInd" value="Exclusive"> Exclusive</td>'); 

send('<TR><TD>Purpose:</TD>'); 
send('<TDxtextarea rows=5 cols=50 name="Purpose">'); 
send('Please provide a brief statement of'); 
sendCyour technology"s primary function.</textarea>'); 

send('<TR><TD>Comments: </TD>'); 
send('<TD><textarea rows=8 cols=50 name= "Comments ">'); 
send('Please provide any details you would like to'); 
sendCpass on to the user. Consumers will use this '); 
send('information (and the Purpose field above) to'); 
sendC'decide if your technology is right for them.'); 
send('These fields will also be used in keyword'); 
send('searches for technologies.</textarea>'); 

send('</TABLE>'); 

send('<P>'); 

send('<input type="subniit" value= "Register">'); 
send('<input type="reset" value="Clear Form"></center>'); 
send('</form>'); 
send('<P>'); 

Tablel.close; 
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{If user cancels, capture ProviderlD, send user to Provider Menu} 

send('<CENTER>'); 

send('<FORM method=post action=’"+ 

'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">’); 
send('<input type="hidden" name="ProviderID" '+ 
'value="'+ProviderID+’"></td>'); 

send(’<input type="submit" value="Cancel, Return to Provider Menu">'); 
send('</form>'); 
sendC</CENTER>’); 
end; 

(Standard footer information) 
sendHR; 

send('<p><I><font size=-l>'); 

send( This application was created by Steve Earley for Professor'); 

send( 'Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</i></font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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unit Regtecal; {Technology Registration; created by Steve Earley; 
updated 7 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Table2: TTable; 

DataSourceS: TDataSource; 

Tables: TTable; 

DataSource4: TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD : string; 

TechK): string; 

TechName: string; 
tObjectType; string; 
tProblemArea: string; 
tFunctionalArea; string; 
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tSolutionMethod: string; 
tIndType: string; 
tOrgType : string; 
tURL; string; 

Excind : string; 

PMessage : TStringList; 

CMessage: TStringList; 

begin 

with CGIEnvDatal do 
begin 

{ required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{receive input fields from HTML form} 

ProviderlD := getSniallField( 'ProviderlD'); 

TechID := getSmaIlField( TechID’); 

TechName := getSniaIlField( 'TechName'); 
tObjectType := getSmaIlField( 'tObjectType'); 
tProblemArea := getSmallField( 'tProblemArea'); 
tFunctionalArea ;= getSmallField( 'tFunctionalArea'); 
tSolutionMethod := getSmallField( 'tSolutionMethod'); 
tIndType := getSmallField( 'tIndType'); 
tOrgType := getSniallField( 'tOrgType'); 
tURL := getSmallField( 'tURL'); 

Excind := getSmallField( 'Excind'); 

PMessage := TStringList.create; 

PMessage.clear; 

getTextArea( 'Purpose', PMessage); 

CMessage := TStringList.create; 

CMessage.clear; 

getTextArea( 'Comments', CMessage); 

(update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 
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sql.add('UPDATE ACT_PROV'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.add('WHERE ActProvK) = + ProviderlD + 

ExecSQL; 

end; 

{add record to Technology table} 

Tablel.open; 

Tablel.AppendRecord([ProviderID,TechID,TechName,tObjectType,tProblemArea, 

tFunctionalArea,tSolutionMethod,tIndType,tOrgType, 

tURL,ExcInd]); 

Table 1.close; 

{add record to Technology Mirror table) 

Table2.open; 

Table2.AppendRecord([ProviderID,TechID,TechNanie,tObjectType,tProblemArea, 

tFunctionalArea,tSolutionMethod,tIndType,tOrgType, 

tURL,ExcInd]); 

Table2.close; 

{add record to Technology Info table) 

TableS.open; 

Tables. AppendRecord([ProviderDD,TechID,PMessage,CMessage, 
DateTimeToStr(Now),DateTimeToStr(Now)]); 

TableS.close; 

{Standard HTML header information) 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>’); 
sendTitle( 'DecisionNet Technology Registration'); 
send( ’</HEADxBODY BGCOLOR="80B7BO">’); 
send('<center><hl>DecisionNet Technology Registration</hl>'); 

{Check if technology is Exclusive or Independent. If exclusive, send 
user to regexcLexe; if independent, registration is complete) 
if Excind = 'Exclusive' then 
begin 

send('<h2>Your Information has been accepted. Please follow the'); 
send('link below to continue registration of your Exclusive'); 
send('Technology.</h2x/center>'); 
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{capture ProviderlD and TechID, send user to Exclusive Tech Reg Form} 

sendC<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/null.exe">'); 
send('<mput type="hidden" name="ProviderID" '+ 
'value="'+ProviderID+’"x:/td>’); 
send('<input type="hidden" name="Techn)"'+ 
'value='"+TechID+"'></td>’); 

send('<input type="submit" value="Exclusive Tech Registration">'); 
send('</fonn>'); 
send('</CENTER>'); 
end 

else 

begin 

§end('<h2>Your technology is now registered. Thank you for your input.'); 

send('</h2></center>'); 

send('<p>'); 

(capture ProviderlD, send user to Provider Menu) 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http;//131.120.39.63/cgi-win/dnet/provider/menu.exe">’); 
send('<input type="hidden" name="ProvidernD" '+ 
’value=’"+ProviderID+'"></td>'); 

send('<input type="submit" value="Registered Provider Menu">’); 
send('</form>'); 
sendC</CENTER>'); 
end; 

(Standard HTML footer information} 

send(’<p>'); 

sendHR; 

send('<p><font size=-l><i>'); 

send( 'This application was created by Steve Earley for Professor'); 
send( 'Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 
send( '</i></font></BODY></HTML>'); 
closeStdout; 
end; 
end; 
end. 
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5. Update Technology Scripts 


unit Updttecl; {Technology Update; created by Steve Earley; 
updated: 4 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGIEnvDatal; TCGIEnvData; 

DataSource2: TDataSource; 

Table 1: TTable; 

Queryl: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD; string; 

TechEntry: boolean; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
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application.onException := cgiErrorHandler; 
application.processMessages; 

(Get ProviderlD field from menu.exe} 

ProviderlD := getSmallField( 'ProviderK)'); 

{update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.addCWHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

{standard dynamic HTML header information) 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>’); 
sendTitle( 'Update DecisionNet Technology'); 
send( '</HEAD><BODY BGCOLOR="80B7BO">’); 
send('<center><hl>Update DecisionNet Technology</hl></center>'); 

with Table 1 do {Check Technolo.db to ensure technologies exist) 
begin 
open; 

TechEntry := FindKey( [ProviderlD]); 
close; 
end; 

if TechEntry = False then {No technologies exist for provider) 
begin 

send('<center><h2>Sorry, but you do not have any registered'); 
send('technologies for <!>' + ProviderlD + '</!>. You must register'); 
send('a technology before you can modify it.</h2>'); 
send('<P><HR><P>'); 

{Capture ProviderlD, send user to Provider Menu) 
send('<FORM method=post action='"+ 

'http;//l 31.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID"'+ 
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'value="'+Providern)+"'></t±>'); 
send('<input type="submit" value="Retum to Provider Menu">'); 
send('</form></center>'); 
end 

else {technologies exist for provider} 

begin 

send('Please enter your password in the field provided, choose ’); 
send('the technology you would like to update, then press the ’); 
send("'Update Technology" button. You will then be sent to the '); 
send('appropriate form for modifying your technology. ’); 
sendC Thank you for using DecisionNet.'); 
sendC<P><HRxP>'); 

send('<center>'); 

send('<FORM method=post action='); 

send("'http://131.120.39.63/cgi-win/dnet/provider/updtteca.exe">'); 
send('<input type="hidden" name="ProviderID"'); 
send('value=’" +ProviderID+ 

send('<TABLE BORDER=6 CELLPADDING=6>'); 

send('<TR ALIGN="CENTER" VAUGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(’<B>Password:</B>'); 

sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<INPUT type="password" name="pPassword" size=10>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Technology Name:</B>'); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<SELECT NAME="TechID" TYPE="text" SIZE=1>'); 

with Table 1 do {Check Technolo.db for Option Entries) 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('ProviderlD'). AsString = ProviderDD then 
begin 
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sendC<OPTION VALUE= "’+FieldByName(TechID’).AsString+"’>’); 
sen(i(FieldByName('TechName').AsString); 
end; 

next; {puts cursor on next record} 
end; 
close; 
end; 

sendC</SELECT></rD>'); 

send('</rABLE>'); 

send('<P><P>'); 

send('<input type="submit" value= "Update Technology">'); 
send('<input type="reset" value="Clear Fomi">’); 
send('</form>'); 

(If user cancels, capture ProviderlD, send user to Provider Menu} 
send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/provider/inenu.exe">'); 
send('<input type="hidden" name= "ProviderlD" '+ 

'value=" '+ProviderID+' "></td>’); 

send('<input type="subniit" value="Cancel, Return to Provider Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end; 

{standard dynamic HTML footer information} 

send(’<p>'); 

sendHR; 

send('<p><i><font size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '<yi><yfont><yBODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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unit Updtecal; {Technology Update Form; created by Steve Earley; 
updated 20 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables, Cgidb; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGIEnvDatal: TCGIEnvData; 

DataSource2; TDataSource; 

Table 1: TTable; 

DataSourceS: TDataSource; 

Table2: TTable; 

Query 1: TQuery; 

DataSource4: TDataSource; 

Tables: TTable; 

CGIDB 1: TCGIDB; 

DataSourceS: TDataSource; 

Table4: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD: string; 
pPassword: string; 

TechID: string; 
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begin 

with CGIEnvDatal do 
begin 

{ required when this program runs under WebSite} 
webSitelNIFilename :=paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{receive input fields from updttech.exe} 

ProviderlD := getSniallField( 'ProviderlD'); 
pPassword := getSniaJlField( 'pPassword'); 

TechE) := getSmallField( 'TechID'); 

(Standard Header Information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>’); 

sendTitle( 'DecisionNet Technology Update Form'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">’); 

with Table 1 do (search for user in Provider table; 

GotoKey returns True if already logged in) 

begin 

open; 

SetKey; 

FieldByName(’ProviderlD').AsString := ProviderlD; 

GoToKey; 

end; 

if (Tablel.FieldByName('pPassword').AsString o pPassword) or 
(pPassword = cginotfound) then (Password does not match ProviderlD, or 
Password not entered) 


begin 

send('<center><h 1 >Incorrect Attempt !</h 1 >'); 
send('<h2>Please verify that your Password' + 
'is correct, then try again.</h2></center>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
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{capture ProviderlD, send user back to Initial Update Form} 

send(’<CENTER>'); 

send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/provider/updttech.exe">'); 
send('<input type="hidden" name="ProviderID"'+ 

'value=" '+Pro viderE)+' "></td>'); 

send('<input type="submit" value="Back to Tech Update Page">'); 
send('</form>'); 
sendC</CENTER>’); 
end 

else (ProviderlD matches pPassword) 
begin 

(update Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.add('WHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

with Table3 do (Search Technology Table for record to be modified) 
begin 
open; 

FindKey([ProviderID,TechID]); 

end; 

with Table4 do (Search Techinfo Table for record to be modified) 
begin 
open; 

FindKey([ProviderID,TechID]); 
end; 

(Registration Form) 

send('<centerxhl>Technology Update Form</hl></center>'); 
send('Please fill in all of the following fields, then press the'); 
send("’Update" button. For each category, choose the term that'); 
send('best describes your technology. These terms will later be used ’); 
send('in an indexed search of technologies. You cannot modify your'); 
send('Provider ID or your Technology ID number.'); 
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send('<center>'); 

send('<FORM method=post action='); 
send(’"http://131.120.39.63/cgi-win/dnet/provider/updttecb.exe">'); 
send('<input type="hidden" name="ProviderID" value="’+ProviderID+"’>'); 
send('<input type="hidden" name="TechID" value="'+TechK)+"'>'); 

send('<TABLE B0RDER=6 CELLPADDING=6>'); 

send('<TR><TD>Provider ID;'); 
send('</TD><td>' +ProviderID+ '</td>'); 

send('<TR><TD>Technology ID:'); 
send('<ArD><td>' +TechrD+ '</td>'); 

send('<TR><TD>Technology Name:'); 
send('</TD><td><input type="text" name="TechName"'); 
send('size=20 maxlength=20'); 

send('value="'+Table3 .FieldByName('TechName'). AsString+'"></td>'); 
send('<TR><TD>Object Type:'); 

send('</td><td><SELECT NAME=''tObjectType" TYPE="text" SI2E=1>'); 
send('<OPTION SELECTED'); 

send('VALUE='"+Table3.FieldByName('tObjectType').AsString+'">'); 

send(Table3.FieldByName('tObjectType').AsString); 

with Table2 do {Check Taxonomy for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent').AsString = 'Object Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 
send(FieldByName('Child').AsString); 
end; 

next; {puts cursor on next record) 

end; 

close; 

end; 

send('</SELECT></rD>'); 
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send('<TR><TD>Problem Area:'); 

send('</TD> <td> <SELECT NAME="tProblemArea" SIZE=1>'); 
sendC<OPTION SELECTED ’); 

send('VALUE=’"+Table3.FieldByName('tProblemArea').AsString+"'>’); 

send(Table3.FieldByNanie('tProblemArea').AsString); 

with Table2 do {Check Taxonomy for Option Entries} 
begin 
open; 

first; (puts cursor on first record in table} 

while not EOF do 
begin 

if FieldByNanie('Parent').AsString = 'Problem Area’ then 
begin 

send('<OPTION VALUE= "'+FieldByName('Child').AsString+'">'); 
send(FieldByName('Child’).AsString); 
end; 

next; (puts cursor on next record} 
end; 
close; 
end; 

sendC</SELECT><m)>'); 
send('<TR><TD>Functional Area:'); 

send('</td><tdxSELECT NAME="tFunctionalArea" TYPE="text" SIZE=1>'); 
send('<OPTION SELECTED ’); 

send('VALUE='"+Table3.FieldByName('tFunctionalArea').AsString+’">'); 

send(Table3.FieldByName('tFunctionalArea').AsString); 

with Table2 do (Check Taxonomy for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table} 

while not EOF do 
begin 

if FieldByName('Parent').AsString = Functional Area' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 
send(FieldByName(’Child').AsString); 
end; 
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next; {puts cursor on next record} 
end; 
close; 
end; 

sendC</SELECT><m)>'); 
send('<TR><TD>Solution Method:'); 

send('</TD> <td><SELECT NAME="tSolutionMethod" SIZE=1>'); 
send('<OPTION SELECTED'); 

sendCVALUE="’+Table3.FieldByName('tSolutionMethod').AsString+'">'); 

send(Table3.FieldByNaine('tSolutionMethod').AsString); 

with Table2 do {Check Taxonomy for Option Entries} 

begin 
open; 

first; ^uts cursor on first record in table} 

while not EOF do 
begin 

if FieldByName('Parent').AsString = 'Solution Method' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 
send(FieldByNanie('Child').AsString); 
end; 

next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECT></rD>'); 
send('<TR>«cTD>Industiy Type:'); 

send('</TD> <td><SELECT NAME="tIndType" SIZE=1>'); 
send('<OPTION SELECTED'); 

send('VALUE="'+Table3.FieldByNaine('tIndType').AsString+"'>'); 
send(T able3 .FieldByName('tIndT ype'). AsS tring); 

with Table2 do {Check Taxonomy for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table} 
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while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Industry Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+'">'); 
send(FieldByName('Child').AsString); 
end; 

next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECT></TD>'); 

send('<tr><td>Organization T ype:'); 
send('</td><td><SELECT NAME="tOrgType" SIZE=1>’); 
send('<OPTION SELECTED'); 

send('VALlJE=’"+Table3.FieldByName('tOrgType').AsString+'">'); 

send(Table3.FieldByName('tOrgType').AsString); 

with Table2 do (Check Taxonomy for Option Entries) 
begin 
open; 

first; (puts cursor on first record in table) 

while not EOF do 
begin 

if FieldByName('Parent'). AsString = 'Organization Type' then 
begin 

send('<OPTION VALUE= '"+FieldByName('Child').AsString+’">’); 
send(FieldByName('Child') .AsString); 
end; 

next; (puts cursor on next record) 
end; 
close; 
end; 

send('</SELECT></TD>'); 

send('<a’R><TD>URL:'); 

send('</TDxtd><input type="text" name="tlJRL"'); 
send('size=50 maxlength=255'); 

send(’value='"+Table3.FieldByName('tlJRL').AsString+'"></td>'); 
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send('<TR><TD>Technology T)^e:'); 

if Table3.FieldByName('ExcInd’).AsString = 'Independent' then 
begin 

send('</TD><td><input type="radio" checked name="ExcInd"'); 
send('value="Independent" > Independent'); 
send('<input type="radio" name="ExcInd" value="Exclusive">'); 
send('Exclusive</td>'); 
end 
else 
begin 

send('</TD><td><input type="radio" name="ExcInd"'); 
send('value="Independent"> Independent'); 

send('<input type="radio" checked name="ExcInd" value="Exclusive"> '); 
send('Exclusive</td>'); 
end; 

send('<TR><TD>Purpose: </TD>'); 
send('<TD><textarea rows=5 cols=50 name="Purpose">'); 

CGIDB1 .SendMemo(Table4.FieldByName('Purpose')); 
send('</textarea>'); 

send('<TR><TD>Comments;</TD>'); 
send('<TD><textarea rows=8 cols=50 name="Comments">'); 

CGIDB l.SendMemo(Table4.FieldByName('Comments')); 
send('</textarea>'); 

send('</TABLE>'); 

send('<P>'); 

send('<input type="subniit" value= "Update">'); 
send('<input type="reset" value="Clear Form"></center>'); 
send('</form>'); 
send('<P>'); 

Tablel.close; 

TableS.close; 

{If user cancels, capture ProviderlD, send user to Provider Menu} 

send('<CENTER>'); 

send('<FORM method=post action='"+ 

'http://l 31.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
'value='"+ProviderID+'">'); 

send('<input type="submit" value="Cancel, Return to Provider Menu">'); 
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send('</form>'); 

send('</CENTER>'); 

end; 

{Standard footer information} 
sendHR; 

send('<pxI><font size=-l>'); 

send( This application was created by Steve Earley for Professor'); 

send( 'Hemant Bhargava.<br>'); 

send( 'Generated on' + webdate(now)); 

send( ’</i></font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 


159 






unit Updtecbl; {Technology Update Script; created by Steve Earley; 
updated 7 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables, Cgidb; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

DataSourceS: TDataSource; 

DataSource4: TDataSource; 

Query 1: TQuery; 

Query2: TQuery; 

QueryS: TQuery; 

Tablel: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderK): string; 

TechID : string; 

TechName: string; 
tObjectType: string; 
tProblemArea: string; 
tFunctionalArea: string; 
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tSolutionMethod: string; 
tIndType: string; 
tOrgType: string; 
tURL: string; 

Excind: string; 

PMessage: TStringList; 

CMessage: TStringList; 

TempDate: string; 

begin 

with CGDSnvDatal do 
begin 

{ required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{receive input fields from HTML form} 

ProviderK) := getSmallField( ’ProviderlD’); 

TechID := getSmallField( 'TechID'); 

TechName := getSmallField( 'TechName'); 
tObjectType := getSniallField( 'tObjectType'); 
tProblemArea := getSmallField( 'tProblemArea'); 
tFunctionalArea := getSmallField( 'tFunctionalArea'); 
tSolutionMethod := getSmallField( 'tSolutionMethod'); 
tIndType := getSmallField( 'tIndType'); 
tOrgType := getSmallField( 'tOrgType'); 
tURL := getSmallField( 'tURL'); 

Excind := getSmallField( "Excind'); 

PMessage := TStringList.create; 

PMessage.clear; 

getTextArea( 'Purpose', PMessage); 

CMessage := TStringList.create; 

CMessage.clear; 

getTextArea( 'Comments', CMessage); 

{update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 
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sql.addCUPDATE ACT_PROV'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.add('WHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

{Update Technology table} 
with Query2 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE TECHNOLO ’); 
sql.addCSET TechName = +TechName+ ""); 
sql.addC, tObjectType = +tObjectType+""); 
sql.addC, tProblemArea = +tProblenLArea+ ""); 
sql.addC, tFunctionalArea = +tFunctionalArea+ 
sql.addC, tSolutionMethod = +tSolutionMethod+""); 
sql.addC, tIndType = +tIndType+ ""); 
sql.addC, tOrgType = +tOrgType+ ""); 
sql.addC, tURL = +tURL+ ""); 
sql.addC, Excind = +Exclnd+""); 
sql.addCWHERE (ProviderlD = + ProviderE) + ’")'); 

sql.addC AND (TechID = + TechlD + 

ExecSQL; 

end; 

(Update Technology Mirror table} 
with QueryS do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE TECHMIRR'); 
sql.addCSET TechName = +TechName+ ""); 
sql.addC, tObjectType = +tObJectType+ ""); 
sql.addC, tProblemArea =+tProblemArea+ ""); 
sql.addC, tFunctionalArea = +tFunctionalArea+""); 
sql.addC, tSolutionMethod = +tSolutionMethod+""); 
sql.addC, tIndType = +tIndType+ ""); 
sql.addC, tOrgType = +tOrgType+ ""); 
sql.addC, tURL = +tURL+ 
sql.addC, Excind = +Exclnd+ ""); 
sqLaddCWHERE (ProviderlD = + ProviderlD +"')'); 

sql.addCAND (TechID =+ TechID + 
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ExecSQL; 

end; 

{Update Technology Info table: requires a delete and an append to work 
with the memo fields} 
with Table 1 do 
begin 
open; 

FindKeyC [ProviderID,TechID]); 

TempDate := FieldByName('DateRegistered').AsString; 
delete; 

AppendRecord([ProviderID,TechID,PMessage,CMessage, 

TempDate,DateTimeToStr(Now)]); 

close; 

end; 

{Standard HTML header information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 
sendTitle( 'DecisionNet Technology Update’); 
send( '</HEADxBODY BGCOLOR="80B7BO">'); 
send('<center><hl>DecisionNet Technology Update</hl>'); 

{Check if technology is Exclusive or Independent. If exclusive, send 
user to updtexcLexe; if independent, update is complete} 
if Excind = 'Exclusive' then 
begin 

send('<h2>Your Information has been accepted. Please follow the ’); 
send('link below to continue updating your Exclusive'); 
send(’Technology.</h2></center>'); 

{capture ProviderlD and TechID, send user to Exclusive Tech Update Form} 
send('<CENTER>'); 
send('<FORM method=post action='"+ 
'http://131.120.39.63/cgi-win/dnet/provider/null.exe">'); 
send('<input type="hidden" name="ProviderlD" '+ 
'value=’"+ProviderID-i-'"></td>'); 
send('<input type="hidden" name="TechID" '+ 

'value='"+TechID+’"></td>'); 

send('<input type="submit" value="Exclusive Tech Modification">'); 
send('</form>'); 
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send('</CENTER>'); 

end 

else 

begin 

send(’<h2>Yourtechnology"s information has been modified. ’); 

sendC Thank you for your input.'); 

send(’</h2></center>'); 

send('<p>'); 

{capture ProviderlD, send user to Provider Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

’http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
'value="'+ProviderID+"'></td>'); 

send('<input type="subniit" value= "Registered Provider Menu">'); 
send('</form>'); 
sendC</CENTER>'); 
end; 

{Standard HTML footer information} 

send('<p>'); 

sendHR; 

send('<p><font size=-l><i>'); 

send( 'This application was created by Steve Earley for Professor'); 
send( 'Hemant Bhargava.<br>'); 

send( 'Generated on' + webdate(now)); 

send( '</i></font></BODY></HTML>'); 
closeStdout; 

end; 

end; 

end. 
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6. Technology Information 


unit Techinf 1; {Provider Technology Usage script; created by Steve Earley, 
last update 11 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD: string; 
begin 

with CGIEnvDatal do 
begin 
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{required when this program runs under WebSite} 
websitelNIFilename := paramstr( 1); 
application.onException := cgiErrorHandler; 
application.processMessages; 
createStdout; 
sendPrologue; 

(HTML page header info} 
send( '<HTML><HEAD>'); 
sendTitle( 'Technology Usage'); 
send( ’</HEAD><BODY BGCOLOR="80B7BO">'); 

(receive input field from Provider Menu; if user tries to go directly to 
program, or tries to view records as a guest, raise an error) 

ProviderlD := getSmallField( 'ProviderlD'); 

if (ProviderlD = CGINotFound) or (ProviderlD = 'guest') then 
begin 

send('<center><Hl>Unable to View Records</hl>'); 
send('<h2>You cannot view your information unless you have logged '); 
send('in as a valid Provider other than <I>'+ProviderID+'</I>.'); 
send('Please <a href="http://131.120.39.66/start.htm">login</a>'); 
send('to continue.</h2x/center>'); 
end 

else 

begin 

send('<centerxHl>DecisionNet Technology Usage</hl></center>'); 
send('This is a complete listing of all registered users who'); 
send('have accessed your technologies.'); 
send('<p>'); 

(update Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.add('UPDATE ACT_PROV'); 

sql.add('SET LastActionTime = '" +DateTimeToStr(Now)+ 

sql.addCWHERE ActProvID = '" + ProviderlD + 

ExecSQL; 

end; 
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{Create output table using query on Used Technology table} 
with query2 do 
begin 
close; 

SQL.clear; 

SQL.add('SELECT ProvidernD,TechID,UserID,LastActionTime'); 
SQL.add(’FROM USEDTECH'); 

SQL.addCWHERE ProviderlD = + ProviderlD + 
open; 
end; 

send('<center>’); 

CGIDB1 .drawTable; 
query2.close; 
send('</center>'); 
send(’<p>'); 

{Capture ProviderlD, send user to Provider Menu} 

send(’<CENTER>’); 

send('<FORM niethod=post action="'+ 

'http;//l 31.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" nanie="ProviderlD" ’+ 
'value=’"+ProviderID+"'></td>'); 
send('<input type="subniit" value="Retum to Provider Menu">'); 
send('</form>'); 
send(’</CENTER>’); 
end; 

{HTML page footer info} 
sendHR; 

send('<pxI><FONT SIZE=-1>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Grenerated on ' + webdate(now)); 

send( '</FObrr></I></BODY></HTML>'); 

closeStdout; 
closeApp( application); 

end; 

end; 

end. 
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7. Withdraw Technology Scripts 

unit Wdtechl; {Technology Withdraw; created by Steve Earley; updated: 4 Jun 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

CGIEnvDatal: TCGlEnvData; 

DataSource2: TDataSource; 

Tablel: TTable; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 

end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD; string; 

TechEntry: boolean; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
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application.processMessages; 

{Get ProviderlD field from menu.exe} 

ProviderlD := getSinallField( ProviderlD’); 

(update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT.PROV'); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.add(’WHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

(standard dynamic HTML header information) 

createStdout; 

sendPrologue; 

send( '<HTMLxHEAD>’); 
sendTitIe( "Withdraw DecisionNet Technology'); 
send( '</HEAD><BODY BGCOLOR="80B7BO">'); 
send('<center><hl>Withdraw DecisionNet Technology</hl></center>'); 

with Table 1 do (Check Technolo.db to ensure technologies exist) 
begin 
open; 

TechEntry := FindKey([ProviderID]); 
close; 
end; 

if TechEntry = False then (No technologies exist for provider) 
begin 

send('<center><h2>Sorry, but you do not have any registered'); 
send('technologies for <!>' + ProviderE) + '</!>. You must register'); 
send('a technology before you can withdraw it.</h2>'); 
send('<P><HRxP>'); 

(Capture ProviderlD, send user to Provider Menu) 
send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
'value='"+ProviderID+"'></td>'); 
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send('<input type="submit" value="Retum to Provider Menu">'); 
send('</form></center>'); 
end 

else {technologies exist for provider} 
begin 

send('Please enter your password in the field provided, choose'); 
send('the technology you would like to withdraw, then press the '); 
send("'Withdraw Technology" button. Should you choose to re-register'); 
send('this technology at a later date, it must be registered under a ’); 
send('different Technology ID number.'); 
sendC Thank you for using DecisionNet.'); 
send('<P><HRxP>'); 

send('<center>'); 

send('<FORM method=post action='); 

send("'http://l 31.120.39.63/cgi-win/dnet/provider/wdtecha.exe">'); 
send('<input type="hidden" name="ProviderID"'); 
send('value="' +ProviderID-i- 

sendC<TABLE BORDER=6 CELLPADDING=6>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Password:</B>’); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<INPUT type= "password" name="pPassword" size=10>'); 

sendC<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<B>Technology Name:</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<SELECT NAME="TechID" TYPE="text" SIZE=1>'); 

with Table 1 do {Check Technolo.db for Option Entries} 
begin 
open; 

first; {puts cursor on first record in table} 

while not EOF do 
begin 

if FieldByName('ProviderID').AsString = ProviderlD then 
begin 
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send('<OPTION VALUE= "'+FieldByName('TechE)’)-AsString+'">’); 
send(FieldByName('TechName').AsString); 
end; 

next; {puts cursor on next record} 

end; 

close; 

end; 

send('</SELECT></TD>’); 

send(’<^ABLE>'); 

send('<P><P>'); 

send('<input type="submit" value= "Withdraw Technology">'); 
send('<input type="reset" value="Clear Form">'); 
send('</form>’); 

(If user cancels, capture ProviderlD, send user to Provider Menu) 
send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProvidernD" '+ 
'value=’"+ProviderK)+"'></td>'); 

send('<input type="submit" value="Cancel, Return to Provider Menu">'); 

send('</form>'); 

sendC</CENTER>'); 

end; 

(standard dynamic HTML footer information) 

send('<p>'); 

sendHR; 

send('<p><i><font size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on' + webdate(now)); 

send( '</i></fontx/BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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unit Wdtechal; {Technology Withdraw; created by Steve Earley; 
updated: 29 May 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel; liable; 

CGffinvDatal; TCGffinvData; 

DataSource2: TDataSource; 

Query 1: TQuery; 

DataSourceS: TDataSource; 

Query2: TQuery; 

DataSource4: TDataSource; 

QueryS: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD: string; 
pPassword: string; 

TechID; string; 

begin 
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with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{Get ProviderlD field from menu.exe} 

ProviderlD := getSmallField( 'ProviderlD'); 
pPassword := getSmallField( 'pPassword'); 

TechID := getSmallField( 'TechID'); 

(standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>’); 

sendTitIe( 'Withdraw DecisionNet Technology'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

with Table 1 do (search for user in Provider table; 

GotoKey returns True if already logged in) 

begin 

open; 

SetKey; 

FieldByNanie('ProviderID').AsString := ProviderlD; 

GoToKey; 

end; 

if (Tablel.FieldByName('pPassword').AsString o pPassword) or 
(pPassword = cginotfound) then (Password does not match ProviderlD, or 
Password not entered) 


begin 

send('<center><h 1 >Incorrect Attempt !</h 1 >'); 
send('<h2>Please verify that your Password' + 

'is correct, then try again.</h2></center>'); 
send('<p>'); 
sendHR; 
send('<p>'); 

(capture ProviderlD, send user back to Withdrawl Form) 

send('<CENTER>'); 

send('<FORM method=post action='"+ 


173 



'http://l 31.120.39.63/cgi-win/dnet/provider/wdtech.exe">'); 
send('<input type="hidden" name="ProviderID"'+ 
'value="'+ProviderID+"'></td>'); 

send('<input type="submit" value="Back to Tech Withdrawl Page">'); 
send('</form>'); 
sendC</CENTER>'); 
end 

else {ProviderlD matches pPassword} 
begin 

{update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sql.add('SET LastActionTime =+DateTimeToStr(Now)+ 

sql.addCWHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

(Delete Technology from Technology table} 
with Query2 do 
begin 
close; 

SQL.clezu:; 

sql.addCDELETE FROM TECHNOLO ’); 
sql.addCWHERE (TechID = + TechID + ’")'); 

sql.addCAND (ProviderlD = + ProviderlD + 

ExecSQL; 

end; 

(Delete Technology from Techlnfo table} 
with Query3 do 
begin 
close; 

SQL.clear; 

sql.addCDELETE FROM TECHINFO ’); 
sqLaddCWHERE (TechID = + TechID + ’") ’); 

sql.addCAND (ProviderlD = + ProviderlD + "■)'); 

ExecSQL; 

end; 
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send('<center><hl>Withdraw DecisionNet Technology</hl>'); 
send('<HR><P><H2>Your technology is now removed from the system.'); 
sendC Thank you for using DecisionNet.</H2></center>'); 

{capture ProviderlD, send user to Provider Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProvidernD" '+ 
'value=’"+Providern)+’">'); 

send('<input type="submit" value="Registered Provider Menu">'); 
send('</fonn>'); 
send('</CENTER>'); 
end; 

Table 1.close; 

(standard dynamic HTML footer information) 

send('<p>'); 

sendHR; 

send('<p><i><font size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</i></fontx/BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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8. Modify Provider Information 


unit Modify 1; {Modify Provider Information; created by Steve Earley. 
Last Updated on lOJun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSourcel: TDataSource; 

Tablel: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD : string; 
begin 

with CGIEnvDatal do 
begin 

(required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 


176 





application.processMessages; 

{HTML page header info} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>’); 

sendTitle( ’Modify Provider Information'); 

send( '</HEADxBODY BGCOLOR="80B7BO">'); 

(receive input field from Provider Menu; if user tries to go directly to 
program, or tries to register technology as a guest, raise an error} 
ProviderlD := getSmalIField( 'ProviderlD'); 

if (ProviderlD = CGINotFound) or (ProviderlD = 'guest') then 
begin 

send('<center><Hl>Unable to Modify Record</hl>'); 
send('<h2>You cannot modify your information unless you have logged'); 
send('in as a valid Provider other than <I>'+ProviderID+'</I>.'); 
send('Please <a href="http://131.120.39.66/start.htm">login</a>'); 
send('to continue.</h2></centei>’); 
end 

else 

begin 

(update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT.PROV ’); 

sql.add('SET LastActionTime ="' +DateTimeToStr(Now)+ 

sql.addCWHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

with Table 1 do (puts cursor on correct record in Provider table} 
begin 
open; 

SetKey; 

FieldByName('ProviderID').AsString := ProviderlD; 

GotoKey; 

end; 
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{Modification form} 

send('<CENTER><hl>Modify Provider Information</hlx/CENTER>'); 
send('<B>Directions:</B>'); 

send('<OL><LI>Please enter your current password in the "Old Password"'); 
send('field (even if you are not changing your password).'); 

send('<LI>For the remaining fields, fill in any information that'); 
sendCyou want to change, then press the "Modify Record" button. If you '); 
send('do not want to change the information as shown, please do not'); 
send('delete the entries in these fields.'); 

send('<LI>You cannot change your Provider ID using this page, ff you '); 
send('need to change your Provider ID, please feel free to contact us.'); 

send('<LI>If you change your password,'); 

sendCyou must type in all three password fields (old, new, and new'); 
send('again) for the change to take effect.'); 

send('<center>'); 

send('<FORM method=post action='); 

send('"http://131.120.39.63/cgi-win/dnet/provider/modifya.exe">'); 
send('<input type="hidden" name="ProviderID" value='" +ProviderID+ '">'); 
send('<TABLE BORDER=6 CELLPADDING=6>'); 
send('<td>01d Password:</td><td><input type="peissword"'); 

send('name="pPassword" size=10></td>'); 
send('<TR><TD>New Password:</TDxfrD><input type="password"'); 

send('name="pPassword2"size=10> </td>'); 
send('<TR><TD>Re-type New Password:</TD><TD><input type="password"'); 

send('name="pPassword3" size=10> </td>'); 
send('<TR><TD> Name:</TD> <td> <input type="text"'); 
send('name="pName" size=30 value='); 
sendC" +Tablel.FieldByName('pName').AsString+ "'></td>'); 
send('<TR><TD>Home Page URL:</TD> <td><input type="text"'); 
send('name="pURL" size=50 value='); 
sendC" +Tablel.FieldByName('pURL').AsString+ '"></td>'); 
send('<TR><TD> Email Address; </TD> ctdxinput t 5 ^e="text"'); 
send('name="pEMailAddress" size=50 value='); 
send("" +Tablel.FieldByName('pEMailAddress').AsString+ '"></td>'); 
send('</TAJBLE>'); 

send('<P>'); 
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send('<input type="subniit" value= "Modify Record">'); 
send('<input type="reset" value="CIear Form">'); 
send('</form> ’); 

{If user cancels, capture ProviderlD, send user to Provider Menu} 
send('<FORM method=post action="'+ 

'http;//131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID"'+ 
'value="'+ProviderID+"'></td>'); 

send('<input type="subinit" value="Cancel, Return to Provider Menu">'); 
send('</form>'); 
send(’</CENTER>'); 
end; 

(HTML page footer info) 
send(’<HR><IxFONT SIZE=-1>'); 

send( 'This application was created by Steve Earley for Professor ’); 

send( 'Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</I></FONT></BODY></HTML>’); 

closeStdout; 

end; 

end; 

end. 
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unit Modifyal; {Provider Info Modification; created by Steve Earley; 
last update 20 May 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Query 1: TQuery; 

DataSourceS: TDataSource; 

Query2: TQuery; 

DataSource4: TDataSource; 

QueryS: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 


var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD : string; 
pPassword: string; 
pPassword2: string; 
pPasswordS : string; 
pName: string; 
pURL: string; 
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pEMailAddress : string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{receive input fields from HTML form generated by modify.exe} 

ProviderlD := getSmallFieId( ’ProviderlD’); 

pPassword := getSmallField( 'pPassword'); 

pPassword2 := getSmallField( ’pPassword2'); 

pPasswordS := getSmallField( 'pPasswordS'); 

if (pPassword2 = ") and (pPasswordS = ") then 
begin 

pPassword2 := pPassword; 
pPasswordS := pPassword; 
end; 

pName := getSmallField( 'pName'); 

pURL := getSmaIlField( ’pURL’); 

pEMailAddress := getSmallField( 'pEMailAddress'); 

{HTML page header info} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'Modify Provider Information'); 

send( '</HEADxBODY BGCOLOR="80B7BO">'); 

{Update Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sqLadd('SET LastActionTime = '" +DateTimeToStr(Now)+ ""); 
sql.add('WHERE ActProvID = '" + ProviderlD + ""); 

ExecSQL; 

end; 
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with Table 1 do {puts cursor on correct record in Provider table} 
begin 
open; 

SetKey; 

FieldByName('ProviderID').AsString ;= ProviderlD; 

GotoKey; 

end; 

if (Tablel.FieldByName(’pPassword').AsString o pPassword) or 
(pPassword = cginotfound) then (Password does not match ProviderlD, or 
Password not entered) 


begin 

send('<center><h 1 >Incorrect Attempt!</h 1 >'); 
send('<h2>Please verify that your Old Password' + 

'is correct, then try again.</h2></center>'); 
send('<p>'); 
sendHR; 
send('<p>'); 

(capture ProviderlD, send user back to Modification Form) 

send('<CENTER>’); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/modify.exe">’); 
send('<input type="hidden" name="ProviderID"'+ 
'value="'+ProviderID+"'></td>'); 

send('<input type="subniit" value="Back to Modification Page">'); 
send('</fonn>'); 
sendC</CENTER>'); 
end 

else (ProviderlD matches pPassword; ok to change information) 
begin 

if pPassword2 o pPassword3 then (bad registration) 
begin 

send('<center><h l>Password Mismatch</h 1>'); 

send('<h2>Please verify your password choice,'); 

send('and try again.</h2></center>'); 

send('<p>'); 

sendHR; 

send('<p>'); 
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{capture ProviderlD, send user back to Modification Form} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/modify.exe">'); 
send(’<input type="hidden" name="ProviderID" '+ 
'value="'+ProviderID+"'></td>'); 

send('<input type="submit" value="Back to Modification Page">'); 
send('</form>'); 
sendC</CENTER>’); 
end 

else {correct sequence entered for changing password) 
begin 

pPassword := pPassword2; 

{Update Provider table) 
with Query2 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE PROVIDER'); 
sqLadd('SET pPassword = +pPassword+ 
sql.addC, pName = +pName+ 
sql.addC, pURL = +pURL+ 
sql.addC, pEMailAddress = +pEMailAddress+ 
sql.add('WHERE ProviderlD = + ProviderlD + 

ExecSQL; 

end; 

{Update Provider Mirror table) 
with Query3 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE PROVMIRR'); 

sql.addCSET pPassword = +pPassword+ 

sql.addC, pName = +pName+ ""); 

sql.addC, pURL = +pURL+""); 

sql.addC, pEMailAddress = +pEMailAddress+ ""); 

sql.addCWHERE ProviderlD = + ProviderlD +""); 

ExecSQL; 

end; 
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{HTML page body for successful registration change} 
send(’<center><hl>Provider Registration Changes Accepted</hl>'); 
send('<h2>Your information has been updated for' + 

'User Name <!>’ + ProviderlD + '</!>. ’); 
sendC Thank you for using DecisionNet.</h2></center>'); 
send('<p>’); 
sendHR; 
send('<p>'); 

{capture ProviderlD, send user to Provider Menu) 
sendC<CENTER>’); 
send('<FORM method=post action="'+ 
'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
'value='"+ProviderID-i-'"></td>'); 

send('<input type="submit" value="Registered Provider Menu">'); 

send('</form>'); 

send('</CENTER>'); 

send('<p>'); 

end; 

end; 

{HTML page footer info} 
send('<HR><p><i><font size=-l>'); 

send( 'This application was created by Steve Earley for Professor'); 

send( 'Hemant Bhargava.<br>'); 

send( 'Generated on' + webdate(now)); 

send( '</i></font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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9. 


Provider Withdraw 


unit Withdral; {Provider Withdraw; created by Steve Earley; updated: 5 Jun 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2; TDataSource; 

Query 1: TQuery; 

DataSourceS: TDataSource; 

Query2: TQuery; 

DataSource4: TDataSource; 

Table2: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD: string; 

TechEntry: boolean; 

begin 

with CGIEnvDatal do 
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begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

{Get ProviderlD field from menu.exe} 

ProviderlD := getSmallField( 'ProviderlD’); 

(standard dynamic HTML header information} 

creates tdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'Withdraw as DecisionNet Provider'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">’); 

with Table2 do (Check Technolo.db to ensure no technologies exist 
for Provider) 

begin 

open; 

TechEntry ;= FindKey([ProvidernD]); 
close; 
end; 

if TechEntry = False then (No technologies exist for provider, so it is 
ok to withdraw provider) 

begin 

with Table 1 do (search for user in Active Provider table; 

GotoKey returns True if already logged in) 

begin 

open; 

SetKey; 

FieldByName('ActProvID').AsString := ProviderlD; 

GoToKey; 

end; 

if Tablel.GoToKey = True then 
begin 

(Delete user from Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 
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sql.addCDELETE FROM ACT_PROV'); 
sql.add('WKERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

end; 

{Delete user from Provider table} 
with Query2 do 
begin 
close; 

SQL.clear; 

sql.addCDELETE FROM PROVIDER'); 
sql.addCWHERE ProviderlD = + ProviderlD +""); 

ExecSQL; 

end; 

Tablel.close; 

send('<centerxhl>Withdraw as DecisionNet Provider</hlx/center>'); 
send('<dEIR><P>You are now removed from the system. ’); 
sendC We are sorry to see you go. Please feel free to register'); 
send('with us again in the future. ’); 

sendC We hope to have a fully-functional system by the end of June,'); 
send('and we invite your comments for any improvements or additions'); 
sendCyou would like to see.'); 
sendC Thank you for using DecisionNet.'); 

sendC<H3>For DSS or overall system questions, please contact:</H3>’); 
sendC<P><CENTERxA HREF="mailto:bhargava@nps.navy.mil">'); 
sendCProf. Hemant Bhargava: <I>bhargava@nps.navy.mil</S</A></CENTER>'); 

sendC<H3>For technical questions and support, please contact:</H3>'); 
sendC<P><CENTERxA HREF="mailto:shearley@nps.navy.mil">'); 
sendCSteve Earley: <I>shearley@nps.navy.mil</A></CENTER>'); 

end 

else (Provider still has technologies registered, therefore provider 
cannot withdraw yet) 
begin 

sendC<center><hl>Unable to Withdraw</hl></center>'); 
sendC<center><h2>Sorry, but you cannot withdraw as a registered'); 
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sendCprovider until you withdraw all of the registered '); 
send('technologies for <!>' + ProviderlD + '</!>. Once you remove ') 
send('these technologies, you will be allowed to withdraw.</h2>’); 
send('<P><HR><P>'); 

{Capture ProviderlD, send user to Provider Menu} 
send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
’value="’+ProviderID+’"></td>'); 
send('<input type="subniit" value="Retum to Provider Menu’'>'); 
send('</formx/center>'); 
end; 

(standard dynamic HTML footer information) 

send('<p>’); 

sendHR; 

send(’<p><i><font size=-l>’); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</i></fontx/BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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10. Provider Logout 

unit Logout 1; {Provider Logout; created by Steve Earley; updated: 20 May 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Table 1: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TFormLFormCreate(Sender: TObject); 
var 

ProviderlD: string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 
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{Get ProviderlD field from menu.exe} 

ProviderED := getSmallField( 'ProviderlD'); 

(standard dynamic HTML header information} 

creates tdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Provider Logout'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

with Table 1 do (search for user in Active Provider table; 

GotoKey returns True if already logged in) 

begin 

open; 

SetKey; 

FieldByName('ActProvID').AsString := ProviderlD; 

GoToKey; 

end; 

if Tablel.GoToKey = True then 
begin 

(Delete user from Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCDELETE FROM ACT.PROV'); 
sql.addCWHERE ActProvID = '" + Provider^) + ""); 

ExecSQL; 

end; 

end; 

Table 1.close; 

send('<center><h 1 >DecisionNet Logoutc/h 1 ></center>'); 

send('<HRxP>You are now logged out of the system.'); 

sendC We hope to have a fully-functional system by the end of June,'); 

send('and we invite your comments for any improvements or additions'); 

sendCyou would like to see.'); 

sendC Thank you for using DecisionNet.'); 

send(’<H3>For DSS or overall system questions, please contact:</H3>'); 
send('<P><CENTER><AHREF="mailto:bhargava@nps.navy.niil">'); 
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send('Prof. Hemant Bhargava: <I>bhargava@nps.navy.miI</I></A></CENTER>'); 


send('<H3>For technical questions and support, please contact:</H3>'); 
send('<P><CENTER><A HREF="mailto:shearley@nps.navy.mil">’); 
send('Steve Earley: <I>shearley@nps.navy.mil</A></CENTER>’); 

{standard dynamic HTML footer information} 

send('<p>'); 

sendHR; 

send('<pxi><font size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</ix/font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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11. List Technologies 


unit Listtec 1; {Provider Technology Listing; created by Steve Earley. 
Last updated 28 May 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 

sortkey: string; 

UserlD : string; 

begin 

with CGIEnvDatal do 
begin 

websitelNIFilename ;= paramstr(l); 
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application.onException := cgiErrorHandler; 
application.processMessages; 

sortkey := GetSmallField('sortkey'); 

UserlD := GetSmallField('ProviderlD'); 

{update Active Provider table} 
with Query! do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sql.add(’SET LastActionTime = +DateTimeToStr(Now)+ 

sql.addC WHERE ActProvID = + UserlD + 

ExecSQL; 

end; 

createStdout; 

sendPrologue; 

(standard header information) 

send( '<HTML><HEAD>'); 

sendTitle( 'List of Technologies’); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

send('<centerxH 1 >DecisionNet T echnologies</h 1 ></center>’); 

send(These technologies are owned and maintained by their'); 

send('individual providers. DecisionNet"s purpose is to ’); 

send('facilitate access to these technologies.'); 

send('<p>'); 

send('<center>'); 

(build table of technologies using join of Technology and Provider) 
with query 1 do 
begin 
close; 

SQL.clear; 

SQL.add('SELECT TECHNOLO."TechName", PROVroER."pName",' + 
'TECHNOLO."tObjectType", TECHNOLO.’'tProblemArea’',' + 
’TECHNOLO."tURL", TECHNOLO."TechID’', PROVIDER."ProviderlD’'' + 
'FROM TECHNOLO,PROVIDER ' + 

'WHERE (TECHNOLO.ProviderlD = PROVIDER.ProviderlD)'); 
SQL.add('ORDER BY ’+sortkey+"); 
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open; 

first; {puts cursor on first record in table} 


sendC<TABLE BORDER=6 CELLPADDING=6>'); 

sendC<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send(’<B>Technology Name</B>'); 

sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<B>Provider Name</B>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<B>Object Type</B>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<B>Problem Area</B>'); 

while not EOF do 
begin 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
sendC<FORM METHOD = POST ACTION= '); 
send("'http://131.120.39.63/cgi-win/dnet/provider/about.exe">'); 
sendC<INPUT TYPE=HIDDEN NAME="UserID" VALUE=’"+Userro+"’>'); 
send('<INPUT TYPE=HIDDEN NAME="Providerro"'); 
send('VALUE="'+ FieldByName('ProviderID').AsString 
send('<INPUT TYPE=HE)DEN NAME="TechID"'); 
send('VALUE="’+ FieldByName(TechID').AsString 
send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<INPUT TYPE=SUBMIT VALUE="'+ FieldbyName(TechName’).AsString 

+■">'); 

send('</rD></FORM>'); 

send(’<TD ALIGN="CENTER" VALIGN=ME)DLE>'); 
send(FieldByName('pName').AsString); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('tObjectType').AsString); 
send('<TD ALIGN="CENTER" VALIGN=MroDLE>'); 
send(FieldByName('tProbleniArea').AsString); 
next; {puts cursor on next record} 
end; 

sendC</TABLE>'); 

close; 


send(’</center>'); 
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send('<p>'); 

sendHR; 

send('<p>'); 

{capture UserlD, send user to Provider Menu} 

sendC<CENTER>'); 

send('<FORM method=:post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID" '+ 
'value="'+UserID+"'x/td>'); 

sendC<input type="submit" value='’Registered Provider Menu">'); 

send('</fonii>'); 

sendC</CENTER>’); 

send('<p>'); 

sendHR; 

send(’<pxFONT SIZE=-1 ><!>'); 
send( 'This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<bi>'); 
send( '<P>'); 

send( 'Generated on' + webdate(now)); 
send( '</I></FONTx^ODYx/HTML>'); 

closeStdout; 
closeApp( application); 

end; 

end; 

end. 
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12. Provider “About Technology” Script 


unit About 1; {Provider "About Technology " script; created by Steve Earley. 
Last updated 11 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGBEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

CGIDB 1: TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 

UserlD : string; (Person using the program) 
ProviderlD : string; (Provider of a given technology) 
TechID : string; (TechlD of a given technology) 

begin 

with CGIEnvDatal do 
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begin 

websiteINFilename := paramstr(l); 

application.onException := cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 

{Get hidden fields from previous page} 

UserlD := GetSmallField(’UserlD’); 

ProviderlD := GetSmallField('ProviderlD'); 

TechID := GetSmallField(TechlD’); 

{update Active Provider table) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT.PROV ’); 

sql.add('SET LastActionTime = +DateTimeToStr(Now)+ 

sql.add(’WHERE ActProvID = + UserlD + 

ExecSQL; 

end; 

{build table of technologies using join of necessary tables) 
with query2 do 
begin 
close; 

SQL.clear; 

SQL.add('SELECT DISTINCT * ’ + 

'FROM TECHNOLO,PROVIDER,TECHINFO ’ + 

'WHERE (TECHNOLO.ProviderlD = PROVIDER.ProviderlD)' + 
'AND (TECHNOLO.TechID = TECHINFO.TechID)' + 

'AND (TECHNOLO.ProviderlD = TECHINFO.ProviderlD)' + 
'AND (TECHNOLO.ProviderlD = "'+ ProviderlD +'")' + 

'AND (TECHNOLO.TechID = '"+ TechID +'")'); 
open; 

{standard header information) 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Technology Details'); 

send( '</HEAD><BODY BGCOLOR="80B7BO">'); 

send('<center><Hl>DecisionNet Technology Details</hlx/center>'); 
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send(’This technology is owned and maintained by its '); 
send('individual provider. DecisionNet"s purpose is to '); 
send('facilitate access to this technology.'); 

if FieldByName('ExcInd').AsString = 'Independent' then 
begin 

sendC When you execute this technology, it will open into a new '); 
send('browser window. It is important to close that window and '); 
send('retum to this frame then ’); 

send('click on the button below to go back to the Provider Menu.'); 

send('This will allow DecisionNet'); 

send('to keep track of certain information about you. If you '); 

send('do not do this, you may be forced to log back in to access '); 

send('DecisionNet again. Thank you.'); 

end; 

send('<p>'); 

send('<center>'); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Technology Name:</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('TechName').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Provider Name:</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('pName').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Provider ID;</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(FieldByName('ProviderID').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<B>Technology ID:</B>'); 
send('<TD ALIGN="CENTER" VAUGN=MIDDLE>'); 
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send(FieldByName('TechID').AsString); 

send(’<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

sendC<TD ALIGN="CENTER’' VALIGN=MIDDLE>’); 

send(’<fi>Registered:</B>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send(FieldByName('DateRegistered').AsString); 

send('<TR ALIGN="CENTER" VALIGN=M1DDLE>‘); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<B>Updated:</B>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('LastUpdate').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(’<B>Object Type</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tObjectType').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<B>Problem Area</B>'); 
sendC<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tProblemArea').AsString); 

sendCcTR ALIGN="CENTER" VALIGN=MK)DLE>'); 
sendCcTD AUGN="CENTER" VALIGN=MIDDLE>’); 
send('<B>Functional Area<yB>'); 
send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tFunctionalArea’).AsString); 

send('<TR AUGN="CENTER" VALIGN=MIDDLE>'); 
send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<B>Solution Method</B>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(FieldByName('tSolutionMethod').AsString); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send(’<TD ALIGN="CENTER" VALIGN=MroDLE>’); 
send('<B>Industry Type</B>'); 
send('<TD ALIGN="CENTER" VALIGN=M1DDLE>’); 
send(FieldByName('tIndType').AsString); 
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send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send(’<B>Organization Type</B>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send(FieldByName('tOrgType').AsString); 

sendC</TABLE>'); 

send('</center>'); 

send('<P>'); 

send('<B>Purpose:</B>'); 

CGDDB1 .SendMemo(FieldByName('Purpose')); 
send('<P>'); 

send('<P>’); 

send('<B>Comments:</B>'); 

CGIDB1 .SendMemo(FieldByName('Comments')); 

send('<P>'); 

send('<CENTER>'); 

if FieldByName('ExcInd').AsString = 'Independent' then 
begin 

send('<FORM method=post action=’"+ 

'http://131.120.39.63/cgi-win/dnet/provider/execind.exe" ’) 
sendCTARGET="execind">'); 
send('<input type="hidden" name="UserID" '+ 
'value='"+UserID+'">'); 

send(’<input type="hidden" name="ProviderID"'+ 
'value="'+ProviderID+"'>’); 
send('<input type="hidden" nanie="TechID"'+ 
'value='"+TechID+’">'); 
end 
else 
begin 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/provider/null.exe">'); 
send('<input type="hidden" name="ProviderID"'+ 
'value="'+UserID+"’>'); 

end; 

send('<input type="submit" value="Execute Technology">'); 

send('</fomi>'); 

sendC</CENTER>'); 
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Query2.close; 

end; 

send('<p>’); 

sendHR; 

send('<p>'); 

{capture UserlD, send user to Provider Menu} 

send('<CENTER>’); 

send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderK)" '+ 
'value="’+UserID+"'>'); 

send('<input type="submit" value="Registered Provider Menu">’); 

send('</form>'); 

send('</CENTER>’); 

send('<p>'); 

sendHR; 

send('<pxFONT SIZE=-1><I>’); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</I></FONT></BODY></HTML>'); 

closeStdout; 

closeApp( application); 

end; 

end; 

end. 
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13. Browse Taxonomy 


unit Browstxl; {Browse Taxonomy; created by Steve Earley. 
Last updated 20 Jun 96.) 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSourcel: TDataSource; 

CGIDB 1: TCGIDB; 

Query!: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 

ProviderlD: string; 
begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
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application.onException := cgiErrorHandler; 
application.processMessages; 

ProviderlD := GetSinallField('ProviderlD'); 

{update Active Provider table} 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCUPDATE ACT_PROV'); 

sqLadd('SET LastActionTime = +DateTiineToStr(Now)+ 

sql.addCWHERE ActProvID = + ProviderlD + 

ExecSQL; 

end; 

createStdout; 

sendPrologue; 

{standard header information) 
send( '<HTML><HEAD>'); 
sendTitle( 'DecisionNet Taxonomy'); 
send( '</HEAD><BODY BGCOLOR="80B7BO">’); 
send('<center><H 1 >DecisionNet T axonomy</h 1 >’); 
send('This is the primary table used to generate the'); 
send('categories for registering technologies.'); 
send('<p>'); 

{Open and display Taxonomy table) 
with Query2 do 
begin 
close; 

SQL.Add('SELECT Parent,Child FROM TAXONOMY'); 

SQL.Add('ORDER BY Parent'); 

open; 

CGIDB1 .DrawTable; 
close; 
end; 

send('</center>'); 

sendHR; 
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{capture ProviderlD, send user to Provider Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/provider/menu.exe">'); 
send('<input type="hidden" name="ProviderID"'+ 

'value=" '+ProviderID+"'></td>'); 
send('<input type="submit" value="Retum to Provider Menu">'); 
send('</form>'); 
send('</CENTER>’); 

sendHR; 

(Standard HTML footer information) 

sendC<FONT SIZE=-lxI>’); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</I></FONT></BODY></HTML>'); 

closeStdout; 

close App( application); 

end; 

end; 

end. 
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D. SYSTEM ADMINISTRATOR SCRIPTS 


1. Login Script 

unit Login 1; {Sysadmin Login; created by Steve Earley; updated: 5 Jun 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Tablel: TTable; 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

SysadminID; string; 
sPassword: string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
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application.onException := cgiErrorHandler; 
application.processMessages; 

{input fields from Login form (start.htm)} 

SysadminID := getSmallField( 'SysadminID'); 
sPassword := getSmallField( 'sPassword'); 

(standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

send( ’<HTML><HEAD>'); 

sendTitle( 'DecisionNet SysAdmin Login'); 

send( '</HEAD><BODY BGCOLOR=’'FFFFFF">’); 

with Table 1 do {puts cursor on correct record in sysadmin table; 

GotoKey returns True if record is valid) 

begin 

open; 

SetKey; 

FieldByName('SysadminID').AsString ;= SysadminID; 

GotoKey; 

end; 

if (Tablel.FieldByName('sPassword').AsString o sPassword) or 
(Tablel .GoToKey = False) then {password does not match sysadminID, or 
user not in sysadmin table) 

begin 

send(’<center><h 1 >Incorrect Login !</h 1 ></centei>'); 
send('<h2>Please verify that your User Name and Password' + 

'are correct, then try again.</h2>'); 
send('<p>'); 
sendHR; 
send('<p>’); 

send('<CENTER>' + 

’<TABLE BORDER=6 CELLPADDING=6> ' + 

'<TR ALIGN="CENTER" VALIGN=MIDDLE> ’ + 

'<TD ALIGN="CENTER" VALIGN=MIDDLE> ’ + 

'<A HREF="http://dnet.sm.nps.navy.mil/sysadmin/start.htm">' + 
'SysAdmin Start Page</A></TD>'); 
send('<rrR><A’ABLE></CENTER>'); 
end 
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else {SysadminID matches sPassword} 


begin 

send('<center><hl>Welcome to DecisionNet!<:/hl>'); 
send('<h2>You are logged in under the ' + 

'User Name <!>' + SysadminDD + ’</I>.</h2></center>'); 
send('<p>'); 
sendHR; 
send('<p>’); 

{capture SysadminID, send user to sysadmin Menu} 

send('<CENTER>’); 

send('<FORM method=post action='"+ 

’http://l 31.120.39.63/cgi-win/dnet/sysadmin/menu.exe">') 
send('<input type="hidden" name="SysadminID"'+ 
’value="'+SysadminE)+"'></td>'); 
send('<input type="submit" value="SysAdmin Menu">'); 
send('</form>'); 
sendC</CENTER>’); 
end; 

Tablel.close; 

(standard dynamic HTML footer information} 

send('<p>'); 

sendHR; 

send(’<p><ixfont size=-l>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( ’</i></font></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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2. System Administrator Menu 

unit Menu 1; {SysAdmin menu; created by Steve Earley, 
Last updated 20 Jun 96} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

SysadminlD; string; 
begin 

with CGIEnvDatal do 
begin 

websitelNIFilename :=paramstr(l); 

application.onException := cgiErrorHandler; 

application.processMessages; 

createStdout; 

sendPrologue; 
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{standard header information} 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet SysAdmin Menu'); 

send( •</HEAD><BODY BGCOLOR=’'FFFFFF">'); 

(Get ProviderlD from start page; if user tries to go directly to 
menu, raise an error} 

SysadminlD := GetSmallField('SysadminlD'); 

if SysadminlD = CGINotFound then 
begin 

send('<centerxHl>Not Logged In</hl>’); 
send('<h2>You are currently not logged in to DecisionNet.'); 
send('Please <a href="http://131.120.39.66/sysadmin/start.htm">login</a>'); 
send('to continue.</h2></center>'); 
end 

else 

begin 

send('<center><Hl>DecisionNet SysAdmin Menu</hl></center>'); 
sendHR; 

{***MODIFY PASSWORD***} 
send('<H3>Change SysAdmin Password: </H3>'); 
send('<CENTER>'); 

sendC<TABLE BORDER=6 CELLPADDING=6>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://l 31.120.39.63/cgi-win/dnet/sysadmin/modify.exe">'); 

send('<INPUT TYPE=HIDDEN NAME="SysadminID" VALUE="'+SysadminID+’">’); 

sendCcTR ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('01d Password: </TD>'); 

sendC<TD AJLIGN="CENTER" VALIGN=MIDDLE>’); 

send('<INPUT TYPE=PASSWORD NAME="sPassword" SIZE=20></TD>’); 

send(’<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('New Password: </TD>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=PASSWORD NAME="sPassword2" SIZE=20><n^D>’); 
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send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 

send('Retype New Password : </TD>'); 

send(’<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPUT TYPE=PASSWORD NAME="sPassword3" SIZE=20></TD>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<lNPUT TYPE=SUBMIT VALUE="Change Password"></TD>'); 
send('<TD ALIGN="CENTER" VALIGN=M]DDLE>'); 
send('<INPUTTYPE=RESETVALUE=" Cancel "></TD></FORM>'); 

send(’<yrR><A'ABLE></CENTER>'); 

sendHR; 

{***VIEW TABLES***} 
send('<H3>View Tables:</H3>'); 
send('<CENTER>’); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 
send(’<FORM METHOD=POST ACTION='); 
send("'http://131.120.39.63/cgi-win/dnet/sysadmin/viewtabl.exe">'); 
send('<INPUT TYPE=HIDDEN NAME="SysadminID" VALUE="’+SysadminID+’">'); 


send('<TR ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<TD ALIGN="CENTER" VALIGN=M1DDLE>'); 
sendC<SELECT NAME="TableName" TYPE="text">'); 
sendC<OPTIONVALUE="CONSUMER’'>Consumer’); 
send('<OPTIONVALUE="PROVIDER">Provider’); 
send('<OPTIONVALUE="TECHNOLO">Technology’); 
send(’<OPTION VALUE="ACT_CONS">Active Consumer'); 
send('<OPTION VALUE="ACT_PROV">Active Provider'); 
send('<OPTION VALUE="TECHINFO">Technology Mo'); 
send('<OPTION VALUE="ACT_NODE">Active Node'); 
send('<OPTION VALUE="ACTXTECH">Active Excl Technology'); 
send('<OPTION VALUE="TECHGRAP">Technology Graph'); 
send('<OPTION VALUE="USEDTECH">Used Technology'); 
send('<OPTION VALUE="CONSM]RR">Consumer Mirror'); 
send('<OPTION VALUE="PROVMIRR">Provider Mirror'); 
send('<OPTION VALUE="TECHMIRR">Technology Mirror'); 
send('<OPTIONVALUE="TAXONOMY">Taxonomy'); 

send('</SELECT><n’D>'); 
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send(’<^R ALIGN="CENTER" VALIGN=MIDDLE>’); 
send('<TD ALIGN= "CENTER" VALIGN=MIDDLE>'); 

sendC<INPUTTYPE=SUBMrrVALUE=" View Table " ALIGN="MIDDLE">'); 

send('</TD></FORM></TABLE>'); 

send('</CENTER>'); 

sendHR; 

{***RUN SQL STATEMENT***} 
send('<H3>Run SQL Statement:</H3>’); 

send('<OL><LI>Your command <I>must</I> start in the upper left-hand'); 
send('space of the textarea below.'); 

send('<LI>Commands must follow the Borland Database Engine ’); 
send('<A HREF="http://dnet.sm.nps.navy.mil/sysadmin/syntax.htm"'); 
send('TARGET="help">’); 
send('supported syntax</A>.'); 

send('<LI>If the BDE does not like your statement, you will receive a'); 
send('<B>Capability not Supported</B> message. Just click on the Back ’); 
sendCArrow and try again.'); 

send('<LI>If you try to delete a parent record with referential'); 
send('integrity constraints, you will not receive an error message,'); 
send('and the record will remain intact.'); 
send('</OL>'); 

send('<CENTER>'); 

send('<FORM METHOD=POST ACTION= ’); 

send('"http://131.120.39.63/cgi-win/dnet/sysadmin/runsql.exe">'); 

send('<INPUT TYPE=HIDDEN NAME="SysadminID" VALUE='"+SysadminID+'">'); 

send('<textarea rows=10 cols=75 name="SQLCommand">'); 

send('</textarea>'); 

send('<P>'); 

send('<INPUT TYPE=SUBMIT VALUE="Run SQL Statement">'); 
send('<INPUT TYPE=RESET VALUE="Clear Fields"></FORM>'); 
send('</CENTER>'); 
sendHR; 

{***RUN TIMEOUT SCRIPT MANUALLY***} 
send('<H3>Run Timeout Script</H3>'); 

sendCThis is a manual (CGI) version of the hourly Timeout Program.'); 
send('<P><P>'); 

send('<FORM METHOD=POST ACTION='); 

send('"http://131.120.39.63/cgi-win/dnet/Sysadmin/timeout.exe">'); 

send('<CENTER>'); 

send('<INPUT TYPE=SL1BMIT VALUE="Run Timeout Script" ALIGN=middle>'); 
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sendC<lNPUT TYPE=HIDDEN NAME="SysadininID" VALUE='"+SysadminID+’">'); 

send('</FORM>’); 

send('</CENTER>'); 

end; 

sendHR; 

{standard footer information} 

send('<p><I><FONT SIZE=-1>’); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '<dFONTx/I></BODY></HTML>'); 

closes tdout; 
closeAppC application); 

end; 

end; 

end. 
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3. Change Password 

unit Modify 1; {SysAdmin Password Modification; created by Steve Earley; 
last update 7 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, 
Forms, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Table 1: TTable; 

CGIEnvDatal: TCGIEnvData; 

DataSource2: TDataSource; 

Queryl: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

( Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

SysadminED: string; 
sPassword: string; 
sPassword2: string; 
sPasswordS ; string; 

begin 

with CGIEnvDatal do 
begin 
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{required when this program runs under WebSite} 
webSitelNIFilename := paramstx(l); 
application.onException ;= cgiErrorHandler; 
application.processMessages; 

{HTML page header info} 

createStdout; 

sendPrologue; 

send( '<HTML><HEAD>'); 

sendTitle( 'Modify SysAdmin Password'); 

send( '</HEAD><BODYBGCOLOR="FFFFFF">'); 

{receive input fields from HTML form generated by menu.exe) 

SysadminID := getSmallField( 'SysadminID'); 
sPassword := getSmallField( 'sPassword'); 
sPassword2 := getSmallField( 'sPassword2'); 
sPasswords := getSmallField( 'sPasswordS'); 

if (sPassword2 =") and (sPasswordS = ") then 
begin 

sPassword2 := sPassword; 
sPasswordS := sPassword; 
end; 

with Table 1 do {puts cursor on correct record in Sysadmin table) 
begin 
open; 

SetKey; 

FieldByName('SysadminID').AsString := SysadminID; 

GotoKey; 

end; 

if (Tablel.FieldByName('sPassword').AsString o sPassword) or 
(sPassword = cginotfound) then {Password does not match SysadminID, or 
Password not entered) 


begin 

send('<center><h 1 >Incorrect Attempt !</h 1 >'); 
send('<h2>Please verify that your Old Password' + 
'is correct, then try again.</h2></center>'); 
send('<p>'); 
sendHR; 
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send('<p>'); 

{Capture SysadminID, send user hack to Menu} 

send(’<CENTER>'); 

send('<FORM method=post action="'+ 

'http://l 3 1 .120.39.63/cgi-win/dnet/sysadmin/menu.exe">’); 
send('<input type="hidden" name="SysadminBD" '+ 

'value="'+SysadniinnD+"'xytd>'); 
send('<input type="submit" value="Retum to SysAdmin Menu">'); 
send('</fomi>'); 
sendC</CENTER>'); 
end 

else (SysadminID matches sPassword; ok to change information) 
begin 

if sPassword2 o sPassword3 then (bad registration) 
begin 

send('<center><h 1 >Pass word Mismatch</h 1 >'); 

send('<h2>Please verify your password choice,'); 

send('and try again.</h2></center>'); 

send('<p>’); 

sendHR; 

send('<p>'); 

(Capture SysadminID, send user back to Menu) 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/sysadniin/menu.exe">'); 
send('<input type="hidden" name="SysadminID"'+ 
'value="'+Sysadminn)+"'x/td>'); 
send(’<input type="submit" value="Retum to SysAdmin Menu">’); 
send('</form>'); 
send(’</CENTER>'); 
end 

else (correct sequence entered for changing password) 
begin 

sPassword := sPassword2; 

(Update Sysadmin table) 
with Query 1 do 
begin 
close; 
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SQL.clear; 

sql.addCUPDATE SYSADMIN ’); 
sql.add('SET sPassword = +sPassword+ 
sql.addCWHERE SysadminID = + SysadminID + 

ExecSQL; 
end; 

{HTML page body for successful registration change} 
send('<centerxhl>Sysadmin Password Accepted</hl>'); 
send('<h2>Your information has been updated for' + 

'User Name <I>' + SysadminID + '</!>.'); 
sendC Thank you for using DecisionNet.</h2></center>'); 
send(’<p>'); 
sendHR; 
send('<p>’); 

(capture SysadminID, send user to Sysadmin Menu} 

send('<CENTER>’); 

send('<FORM method=post action='"+ 

'http://l 31.120.39.63/cgi-win/dnet/sysadmin/menu.exe">'); 
send('<input type="hidden" name=’'SysadminID" '+ 
'value='"+SysadminID+"'></td>’); 
send('<input type="submit" value="SysAdmin Menu">'); 
send('</form>'); 
send(’</CENTER>'); 
send('<p>'); 

end; 

end; 

(HTML page footer info} 
send('<HRxI><font size=-l>'); 

send( This application was created by Steve Earley for Professor'); 

send( 'Hemant Bhargava.<br>'); 

send( 'Generated on ' + webdate(now)); 

send( '</font></i></BODY></HTML>'); 

closeStdout; 

end; 

end; 

end. 
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4. 


View DecisionNet Tables 


unit Viewtabl; {SysAdmin View Table Script; created by Steve Earley. 
Last updated 12 Jul 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

CGIDB 1: TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

TableName: string; 

SysadminID: string; 

begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

TableName := GetSmallField(TableName’); 

SysadminID := GetSmallField('SysadminK)'); 

{standard header information} 

send( '<HTMLxHEAD>’); 

sendTitle( 'View DecisionNet Tables'); 

send( '</HEAD><BODY BGCOLOR="FFFFFF">'); 

send('<center><Hl>View DecisionNet Tables</hl></center>'); 

{Display Table Name} 

send('<H3>Table Name:' + TableName + '</H3>'); 
send('<p>'); 

{Build table using simple query} 
with query 1 do 
begin 
close; 

SQL.clear; 

SQL.add('SELECT * FROM' + TableName); 
open; 
end; 

{Display table using CGIDB} 
send('<center>'); 

CGIDB 1 .drawT able; 
query 1.close; 
send('</center>'); 
sendHR; 

{Give option to view another table} 
send('<H3>View Another Table:</H3>'); 
send('<CENTER>'); 

send('<TABLE BORDER=6 CELLPADDING=6>'); 
send('<FORM METHOD=POST ACTION='); 
send('"http://131.120.39.63/cgi-win/dnet/sysadmin/viewtabl.exe">'); 
send('<INPUT TYPE=HIDDEN NAME="SysadminID" VALUE='"+SysadminID+'">'); 
send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
sendC^TD ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<SELECT NAME="TableName" TYPE="text">'); 
send('<OPTIONVALUE="CONSUMER">Consumer'); 
send('<OPTIONVALUE="PROVIDER">Provider'); 
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sendC<OPTIONVALUE="TECHNOLO">Technology’); 
send('<OPTION VALUE="ACT_CONS">Active Consumer'); 
send('<OPTION VALUE="ACT_PROV">Active Provider'); 
send('<OPTION VALUE="TECHINFO">Technology Info'); 
send('<OPTION VALUE="ACT_NODE">Active Node'); 
send('<OPTION VALUE="ACTXTECH">Active Excl Technology'); 
send('<OPTION VALUE="TECHGRAP">Technology Graph'); 
send('<OPTION VALUE="USEDTECH">Used Technology'); 
send('<OPTION VALUE="CONSMIRR">Consumer Mirror'); 
send('<OPTION VALUE="PROVMIRR">Provider Mirror'); 
send('<OPTION VALUE="TECHMIRR">Technology Mirror'); 
send('<OPTIONVALUE="TAXONOMY">Taxonomy'); 
send('</SELECTx/TD>'); 

send('<TR ALIGN="CENTER" VALIGN=MIDDLE>'); 
send('<TD ALIGN="CENTER" VALIGN=MIDDLE>'); 

send('<INPlJT TYPE=SUBMIT VALUE=" View Table " ALIGN="MIDDLE">'); 

send('</TD></FORM></TABLE>'); 

send('</CENTER>'); 

sendHR; 

{capture UserlD, send user to Sysadmin Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.63/cgi-win/dnet/sysadmin/menu.exe">'); 
send('<input type="hidden" name="SysadminID"'+ 

'value='"+SysadminID+'"></td>'); 
send('<input type="submit" value="Retum to SysAdmin Menu">'); 
send('</form>'); 
send('</CENTER>'); 

(standard HTML footer information} 

send('<p>'); 

sendHR; 

send('<p><FONT SIZE=-1 ><!>'); 
send( 'This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 
send( '</I></FONT></BODY></HTML>'); 
closeStdout; 
close App( application); 
end; 
end; 
end. 
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5. 


Run SQL Statement 


unit Runsql 1; {SysAdmin Run SQL Script; created by Steve Earley. 
Last updated 8 Jun 96.} 


interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, Cgidb, Cgi, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

CGIDB 1: TCGIDB; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 

end; 

var 

Forml: TForml; 

implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

SysadminID : string; 

SQLMessage: TStringList; 
i; smallint; 

SelectFlag: string; 

begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
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application .processMessages; 

createStdout; 

sendPrologue; 

{Receive input fields from SysAdmin menu} 

SysadminDD := GetSmallField('SysadniiniP'); 

SQLMessage := TStringList.create; 

SQLMessage.clear; 

getTextArea( 'SQLCommand', SQLMessage); 

(standard header information} 

send( '<HTMLxHEAD>'); 

sendTitle( 'Run SQL on DecisionNet'); 

send( 'c/HEADxBODY BGCOLOR="FFFFFF">'); 

send('<center><Hl>Run SQL on DecisionNet</hl></center>'); 

(Build query using string list} 
with query 1 do 
begin 
close; 

SQL.clear; 

for i := 0 to SQLMessage.count - 1 do 
SQL.add(SQLMessage.strings[i]); 
end; 

(Check to see if first six characters are 'select'. If they are, 

use Queryl.open to display table, otherwise use Queryl.ExecSQL and 

display a message that statement was executed} 

SelectFlag ;= system.copy(SQLMessage.strings[0], 0,6); 

if LowerCase(SelectFlag) = 'select' then 

begin 

Queryl.open; 

send('<center>'); 

CGIDB1 .drawTable; 

Query l.close; 
send('</center>'); 
end 
else 
begin 

Queryl.ExecSQL; 

send('<center><h2>Your SQL Statement has been accepted.'); 
send('You may check your results by viewing the table'); 
send('from the SysAdmin menu.</h2><:/center>'); 
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end; 

sendHR; 

{Give option to run another command} 
send('<H3>Run Another Command; </H3>'); 
send('<CENTER>'); 

send('<FORM METHOD=POST ACTION='); 
send(’"http://l 31.120.39.63/cgi-win/dnet/sysadmin/runsql.exe">'); 
send('<INPUT TYPE=fflDDEN NAME="SysadminID" VALUE=’"+SysadminID+’">'); 
send('<textarea rows=10 cols=75 name="SQLCommand">'); 
for i := 0 to SQLMessage.count - 1 do 
send(SQLMessage.strings[i]); 
send('</textarea>'); 
send('<P>'); 

send('<INPUT TYPE=SUBMrr VALUE="Run SQL Statement">'); 
send('<INPUT TYPE=RESET VALUE="Clear Fields"></FORM>'); 
send('</CENTER>'); 
sendHR; 

{capture UserlD, send user to Sysadmin Menu} 

sendC<CENTER>’); 

send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/sysadmin/menu.exe">'); 
send(’<input type="hidden" name="SysadminID"'+ 

’value=’"+SysadminID+"'></td>'); 
send('<input type="submit" value="Retum to SysAdmin Menu">'); 
send('</form>’); 
sendC</CENTER>’); 

{standard HTML footer information} 

send('<p>'); 

sendHR; 

send('<p><FONT SIZE=-1><I>'); 
send( 'This application was created by Steve Earley'); 
send( 'for Professor Hemant Bhargava.<br>'); 
send( 'Generated on ' + webdate(now)); 
send( '</I></FONT></BODYx/HTML>'); 
closes tdout; 
close App( application); 
end; 
end; 
end. 
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6 . 


Timeout Script 


unit Timeout 1; {Timeout script; created by Steve Earley; updated: 5 Jun 96.} 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DBTables, DB; 

type 

TForml = class(TForm) 

DataSourcel: TDataSource; 

Table 1: TTable; 

TablelActConsDD: TStringField; 

TablelSessionStartTime: TStringField; 

TablelLastActionTime: TStringField; 

DataSource2: TDataSource; 

Table2: TTable; 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 

implementation 
{$R *DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

SysadminID : string; 

ConsCount,ProvCount: Integer; 

begin 

with CGIEnvDatal do 
begin 

{Required statements when program runs under WebSite} 


223 





websitelNIFilename := paramstr(l); 

application.onException := cgiErrorHandler; 

appIication.processMessages; 

createStdout; 

sendProIogue; 

{receive input field from Sysadmin Menu} 

SysadminID := getSmallField( 'SysadminlD'); 

with Table 1 do {Check ACTjCONS for entries older than 6 hours} 
begin 

ConsCount := 0; 
open; 

first; {puts cursor on first record in table} 

while not EOF do 
begin 

if StrToDateTime(FieldByName('LastActionTime').AsString) 

< (Now - 0.25) then {current time minus 1/4 day} 
begin 

Delete; {record} 

ConsCount := ConsCount + 1; 
end 
else 

next; {puts cursor on next record} 
end; 
close; 
end; 

with Table2 do . {Check ACTJPROVfor entries older than 6 hours} 
begin 

ProvCount := 0; 
open; 

first; {puts cursor on first record in table} 

while not EOF do 
begin 

if StrToDateTime(FieldByName('LastActionTime')-AsString) 

< (Now - 0.25) then {current time minus 1/4 day} 
begin 

Delete; {record} 

ProvCount := ProvCount + 1; 
end 
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else 

next; {puts cursor on next record} 
end; 
close; 
end; 

send( '<HTML><HEAD>'); 

sendTitle( 'DecisionNet Timeout Script'); 

send( '</HEAD><BODY BGCOLOR="FFFFFF">'); 

send('<center><Hl>DecisionNet Timeout Script</hl>'); 

send('Records have been successfully purged.<P>'); 

send('ACT_CONS records deleted:' + IntToStr(ConsCount) + '<P>'); 

send('ACT_PROV records deleted:' + IntToStr(ProvCount) + '<P>'); 

send('<P>’); 

sendHR; 

sendC<P>’); 

(Capture SysadminlD, send user to Sysadmin Menu) 
send('<FORM method=post action="'+ 

'http://l 31.120.39.63/cgi-win/dnet/Sysadmin/menu.exe">'); 
send('<input type="hidden" name="SysadminID" ’+ 
'value="'+SysadminID+"'></td>'); 
send('<input type="submit" value="Retum to SysAdmin Menu">’); 
send('</form>'); 
send('</CENTER>'); 
send('<p>'); 
sendHR; 

send('<pxI><FONT SIZE=-1>'); 

send( 'This application was created by Steve Earley'); 

send( 'for Professor Hemant Bhargava.<br>'); 

send( 'Generated on' + webdate(now)); 

send( '</FONT></I></BODYx/HTML>'); 

closeStdout; 

closeApp( application); 

end; 

end; 

end. 
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APPENDIX D. PROVIDER INTERFACE PAGES 
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'.‘rr Netscape - [Withdraw DecisionNet Technology] 






















































































APPENDIX E. SYSTEM ADMINISTRATOR INTERFACE PAGES 



DecisionNet SysAdmin Login 


1 — 

I User Name: 

1 


1 . 


1 Password: 





7T315 page was created by Steve Earley for Hemanf Bhargava. 
Last Updated on Wed 5 June 1996. 
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>' Netscape - [DecisionNet SysAdmin Menu] 




DecisionNet SysAdmin Menu 


Change SysAdmin Password: 


Old Password: 


New Password: 


View Tables: 


Retype New Password; 




Consumer 



Run SQL Statement: 

1. Your command Twusf start in the upper left-hand space of the textareabelow. 

2. Commands must follow the Borland Database Engine supported syntax . 

3. If the BDE does not like your statement^ you will receive a Cayabiliiy not Si^orted message. Just click on the Back Arrow and try 
again. 

4. Ifyoutiy to delete a parent record with referential integrity constraints, you will not receive an error message, and the record will 
remain intact. 


^ 


Sr,', :'3S7- ';x^ 'rtr 

At, „ 


^^SSdSqL Statement^ 


Run Timeout Script 

This is a manual (CGI) version of the hourly Timeout Program. 




JAm cppHectian vas avatfd by Strtt Sarieyjor Prcfenor Hauers Shergava. 
Genmsedon Sin 14 JM J996 23S6:42 GMT 
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